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1.0.0 



EASTERN REGION 1620 USERS GROUP MEETING 



MARRIOTT MOTEL, WASHINGTON, D.C. - MAY 6-8, 1?6U 



PROGRAM AGENDA 



(D. D. Williams, Program Chairman) 



Tuesday, May 5th 

6:00-8:00 P.M. 
8:00 

Wednesday, May 6th 
8*00 A.M. 



Registration 

Sound-off Session (Hardware, Programming Systems) 



Registration 
Note : 



Wednesday was devoted exclusively to Programming 
Workshops and special papers* There were four 
(U) concurrent meetings, labeled A, B, C, and D, 
during certain time periods, labeled 1 through £• 
This cross reference is utilized in the Synopsis 
of Papers* 





A 


B 


C 


D 


9:00 - 10:30 
(1) 


Summary of 
FORTRAN P/S 

Summary of 
SPS P/S 


Introd. to 
Monitor 
(Section I) 






10:30 - 10:U5 


Coffee 








10:U5 - 12:15 
(2) 


DOODLE, A 
FORTRAN 
Language 

High-Speed 
SPS Assem- 
bler 


Introd* to 
Monitor 
(Section II) 






12:15 - 1:U5 


Luncheon (Informal) 






1:U5 - 3:15 
(3) 


Experimental 
Translator 
System 

PDQ FORTRAN - 
Paper Tape 

"Select - 
External" 
FORTRAN 


Advanced 
Monitor 
(Section I) 


Comparison of 
SPS Systems 


FORTRAN II 
Vforkshop 
(Section I) 



1.1.1 



5 



Page 2 



3:15 - 3:30 

3:30 - 5:00 
(U) 



8:00 - 10:00 
(5) 



Thursday, May 7th 
8:00 A.M. 



9:00 - 10:30 



10:30 - 10iU5 
10 iW - 12 tig 

12il£ - IAS 

1:U5 - 3:15 



A 

Coffee 



B 



Advanced 
Monitor 
(Section II) 



Aids to Debug- 
ging SAMP 
Monitor Super- 
vision for 
Open Shop 
Users 



Comparison of 
FORTRAN 
Systems 



New Users Breakfast Meeting 
Registration 

Note : Thursday morning and Friday 
afternoon comprise the 
General Session, Program 
Teams meet in the interim. 
The Plotting and Electronics 
Programs Teams were formed 
at this meeting* 

General Session 

Announcements 

New Equipment Announcements 

Systems Design in Electronic Industry 



Coffee 

Comparison in Depth of New FORTRAN Systems 
Luncheon 

Keynote Address: Consolidation through 
Systems Integration 

Program Team Workshops 

Note: See Section h - List of Papers 
for papers presented or topics 
treated. Team Chairmen are 
listed next to workshop* 

A. Electric Utility 

B. Educational Institutions 

C. Rate Engineering 

D. Chemical Engineering 

E. Plotting 
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FORTRAN II 
Workshop 
(Section H) 



Jim Oliver 



Don Williams 
Tom Wagner 
Arnold Spitalny, 
Marty Goldberg 



Don Jardine, 
Jan Lee 



Jim Oliver 



Frank Wells 
N. Goldman 
K. W. Brady 
C. F. Schroedel 

Acting for 

T. H. KorelitB 
Tom Scott 
1.1.2 
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3:1$ - 3:30 
3:30 - 5:00 

5:30 - 6:30 

7:30 

8:00 

Friday, May 8th 
9:00 - 10:30 



10:30 - 10:!£ 
10:b5 - 12:15 

12:15 - 1:U5 
1:U5 - 3:15 



3:15 - 3:30 
3:30 



Coffee 

Continuation of First Four Workshops 
B. Electronics 

Social Hour 

Movie on Type 360 System 
Executive Board Meeting 



Program Team Workshops 

A. Electric Utility 

B. 1710 Users 

C. Structural and Civil Engineering 

D. Education Institutions 

Coffee 

A. Operations Research 

B. Continuation of 9:00 - 10:30 
C Continuation of 9:00 - 10:30 

Luncheon 

A. Electric Utility 

B. General Data Processing 



C. Statistics and Mathematics 
Coffee 

General Session 

Discussion of Sound-off Session 
IBM Reports 
Concluding Remarks 



Arnold Spitalny 
IBM 

Jim Davidson 



Frank Wells 
J, J. Owen 
Tom Scott 
N. Goldman 



Jim Oliver 



Frank Wells 
Robert Soucy - 
Acting for 
Arnold Canner 
Frank Dickinson 



Jim Oliver 
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SYNOPSIS OF PAPERS 



The sessions presented are summarized as follows: Cross Reference Number, 
Title, Author (where applicable), Synopsis, and level of paper or workshop. 

Wednesday, May 6th 

A-l Summary of FORTRAN P/S and SPS P/5 - D. T. Norttopp. Fairchild 
Camera and Instrument Company and E, Sinanian, IBM Corporation 

A survey was presented by IBM and User personnel of the 
major IBM and user designed statement and symbolic langu- 
age programming systems together with the additions and 
modifications available from the library. 

Level: Intermediate 

B-l Introduction to Monitor Programming - E. Sinanian and J. Grant , 
IBM Corporation 

A general discussion for new users of disk drives. 
Section I discussed the Monitor in general and SPS 
II-D in particular. 

Level: Elementary 

A-2 DOODLE - A Do -It-Yourself Problem Solver - M. V* Farina , 
General Electric Company 

A FORTRAN programming system for UOK which interprets 
and executes. 

Level: Intermediate 

AFIT SPS with Simulated TNFTNS and MF - D. Olson, Newark College 
"of Engineering 

Level: Intermediate 

SPS ffi^h Speed Assembler for 20K - K. Germann and 0. Rumrill> 
ffevark College of Engineering 

Level: Intermediate 

B-2 Introduction to Monitor Programming - IEM Corporation 

Continued from previous session. Emphasis on FORTRAN II-D 
in Section II. 

A -3 An Experimental Personalized Array Translator System - 
H. Hellerman, IEM Corporation 



Level : Advanced 



Wednesday , May 6th - Cont. 
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Paper Tape PDQ FORTRAN - J. W. Trantum and P. Q. Boekhoff, 
General American Transportation Company 

Levels Intermediate 

FORTRAN (Select jSxternal) - P. Q. Boekhoff, Oeneral American 
Transportation Company 

A programming system based on PDQ FORTRAN embodying a 
new I/O approach. 

Level t Intermediate 

Advanocd Monitor Programming - J. Grant, IBM Corporation 

A detailed discussion of Monitor I for the advanced 
user. 

Level: Advanced 

A Comparison of SPS Systems - J. A. N. Lee and R. L. Pratt 

An evaluation and comparison in depth of the first 
generation programming systems. 

Level: Elementary to Advanced 

D-3 FORTRAN II Workshop -R, D, Burgess, Mechanical Technology, Inc. 

A tutorial session reported to have been highly 
successful at MTI. 

Level: Intermediate 

B-U Advanced Monitor Programming - IBM Corporation 

Continued from previous session. Monitor II was 
emphasized in Section II. 

Level: Advanced 

C-U The Art of Debugging - E. J. Orth, Jr., Southern Services, Inc. 

Level: Intermediate 

Search and Memory Print (SAMP) - J. M. Wolfe, Brooklyn College 

Level: Elementary 

FORTRAN Symbol Table Punch for IBM. UTO and PDQ FORTRAN Systems - 
R. C. Irons, U.S. Naval School of Aviation Medicine 

Level: Intermediate 



Wednesday, May 6th - Cont. Page 3 

C-U Monitor Supervisor for the 1620-1311 - E. E. Newman, Massachusetts 
(fcont.) Institute of Technology 

Level: Intermediate 

FORTRAN II Workshop - R. D. Burgess, Mechanical Technology, Inc. 
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Continued from previous session. Section II stressed 
subroutine linkage and debugging. 

Comparison of FORTRAN Systems - D. A. Jar dine f J. A. N. Lee t 
W. A. Burrows, R. J. Robinson and R. L. Pratt 

An evaluation and comparison in depth of the first 
generation programming systems, including IBM, AFIT, 
UTO and PDQ FORTRAN. 

Thursday, May 7th 

9:00 - 10:30 Welcome introduction and reports* 

Comments on theme of meeting (systems) - D. D. Williams 

Use of Computers In Design of Electronic Equipment - 
A. Spitalny, United Aircraft Corporation 

Network Analysis on the 1620 - M. Goldberg, United 
Aircraft Corporation 

Note s The preceding two papers support the 
topic "Systems Design in Electronic 
Industry" which is listed in the "Agenda". 

10:1*5 - 12:15 An evaluation and comparison in depth of the second generation 
FORTRAN programming systems including FORTRAN II and Kingstran 
FORTRAN by D. A. Jardine and J. A. N. Lee. 



Papers classed as elementary presuppose no background on the part of the 
audience. Sessions classified as intermediate presuppose some acquaintance 
with the subjeot matter* 

Sessions classified as advanced are intended for persons with considerable 
experience in the field; questions of an elementary nature will be dis- 
couraged at these sessions. 

This agenda was supplemented between sessions by half -hour programmed 
demonstrations on a type 1620 Model 2 computer with UO K positions of 
memory, two disk units, a plotter and a card read-punch unit. The following 
planned list of demonstrations was altered slightly to accommodate available 
hardware features: 

Set A: Design Automation 

Orbital Trajectory Calculation 
Similation of Analog Computer 
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Set B: Monitor I 
FORTRAN II 
SPS III 

Other Programs Available i COOO I 

Circuit Analysis 
Electric Load Flow 
Capital Investments 
FORTRAN with Format 
Plotter Subroutines 

Any User desiring a speoifio demonstration from the 
above selection at times other than those indicated, 
or desiring to run any of his own programs was asked 
to submit his request to the IBM representative at 
the demonstration center* 



Comments of the Program Chairman 



The general response to your Program Committee's probe for 
interesting material for the May, 196U, Conference was quite gratifying. 

Models of previous Proceedings, the wealth of papers offered 
and the availability and generous offers of speakers - expert in their 
fields of interest, all helped to make the program planning easier. 

The directive, for the best use of the contributors' material 
and talents, was taken from the Group's bylaws, and is repeated here: 

M The primary object of the 1620 Users Group 
is to advance the effectiveness of the 
utilization of the IBM 1620 Data Processing 
System w 

In order to effectively advance this basic objective, the 
Committee decided to build a program blended with a theme which would 
focus attention to the currently large stockpile of Programming Systems 
and Applications Programs. Thus, it was hoped to generate some con- 
structive thought toward reduction of redundant programming efforts and 
finally to affect some integration of Application Programs into the 
larger context of Data Processing Systems. 

Hence, the theme, "Consolidation through Systems Integration" 
is being highlighted. 

The agenda was arranged so as to mold the Conference into a 
composite of two parts, each part having its own identity and flavored 
by the theme. 

Part I (Wednesday morning to noon of Thursday) is mainly 
identified with Programming Systems. Wednesday's four sessions were 
each of ninety minute duration, being held concurrently and being 
three-deep . One of these concurrent sessions is a panel discussion of 
SPS Systems which support the theme relative to Part I. 

Further support of the theme, related to Part I, is given in 
two general session panel discussions covering the first and second 
generation of FORTRAN Systems. An evening session on Wednesday and one 
on Thursday morning comprise these two sessions. 

Part II (Thursday morning to Friday afternoon) is mainly 
identified with Applications Programs. The Programs Teams' activities 
are confined to this period. These meetings scheduled concurrently are 
four-deep on Thursday afternoon and three-deep during three sessions on 
Friday* The Chairmen of the various teams had been requested to limit 
the scope of their interest in programming to Applications Programs during 
their teams' sessions. 
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The first session of Thursday morning - an overlap of Part I 
and Part II - is mentioned here as an example of a tie in with the theme 
by integrating several Applications Programs into a Program System 
(i.e. Spitalny's paper, "System Design in Electronic Industry"). 

The panel discussions previously referred to treat, in some 
depth, the survey list of FORTRAN and SPS Systems which are introduced 
during the first session of the Conference's opening. This list with 
some additions is reprinted in Section 5 of these Proceedings, 

Further comment on the panels 1 activity will be found in 
the article following this one entitled "Some Notes on Survey List of 
Programming Systems and Panel Discussions 11 . 

The Program Committee's post-conference activity is confined to 
the compiling of all the material in readiness for printing* 

In conclusion, the Committee offers sincere thanks to the many 
people without whose assistance our mission might not have been completed* 



John A. Rodgers Donald D. Williams 

Program Secretary Program Chairman 
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Some Notes on 
"Surrey List of Programming Systems * 
and Panel Discussions 



Surrey List of Programming Systems 



David T. Northrop devoted the entire opening session of the 
Conference to a review of a Surrey List of Programming Systems - both 
IBM and User compiled - with a brief commentary relating to each listed 
item. This session as planned served to introduce the subject matter 
to be treated in depth during the panel discussions which were held 
later. 



SPS Panel Discussion 

R. L. Pratt, aided by Kurt Germaim, officiated at an 
interesting panel discussion on SPS Systems. The Program Committee 
is indebted to R. L. Pratt for his post-editing of the Survey List 
for reprinting in the Proceedings. 



FORTRAN Panel Discussion 

Report on Panel 
User Written Compilers in Depth 

D. A. Jar dine 

Brief mention was made of IBM FORTRAN -Without -Format and 
Format FORTRAN by J. A. N. Lee. 

R. L. Pratt described some of the useful features of his 
AFIT FORTRAN, such as compile time diagnostics and batch compiling. 
AFIT FORTRAN, while an improvement over IBM systems, is somewhat slower 
than other user-written compilers. 

D. A. Jardine, in the absence of the authors, E. S. Lee and 
J. A. Field, talked about UTO FORTRAN and the contributions made by this 
system to improved language and easier operation. UTO FORTRAN has few 
compile time or object time error messages. 

W. A. Burrows, in the absence of author F. H. Maskiell, 
described some of the features of P.D.Q. FORTRAN. It is based on UTO 
FORTRAN with several major improvements. It is the fastest running 
program at object time for any 1620 not using hardware F.P. The com- 
piler is essentially the same as UTO, but the object time subroutines 
hare been rewritten almost completely. 



R. L. Pratt then described Auto-Float FORTRAN, derived from 
AFIT FORTRAN, which compiles hardware float-point add and subtract in- 
structions in-line (not subroutined) • It is probably the fastest 20K 
FORTRAN (at object time) currently available. Only limited FORMAT 
capabilities are available, 

C, H, Davidson talked about FORGO, the University of Wisconsin's 
load-and-go compiler for teaching use. Extensive diagnostics at both 
compile and object time are available, UOK memory is required. 

Discussion from the floor centered around details of operation, 
use and construction of the various compilers. 
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CONSOLIDATION THROUGH SYSTEMS INTEGRATION 

Dr. James R. Oliver, Dean 
Graduate School and Director, 
Computing Center 
University of Southwestern Louisiana, 
Lafayette, Louisiana 

I am pleased, as President of the Eastern Region 1620 Users Group, 
to talk briefly with you concerning the theme of our meeting, "Consolidation 
Through Systems Integration". I trust that I will be able to leave you 
with a thought or two today that might prove of benefit to you. And 
perhaps in so doing I will be able to help further the aims of our organiza- 
tion. 

Few terms have as many definitions as the word "system". And I 
say this even when talking to a group of people interested in computing, 
a field in which ordinary English words have frequently been given many 
new and sometimes surprising meanings 1 Isn't this a little strange when 
we think of how precise our languages are for communicating with the 
computer? 

Although "system" has many meanings, including the people involved 
in computing at an installation, I think we can profitably devote these 
few minutes to hardware systems and software systems. Thus I will direct 
my remarks along these areas of interest and will try to make three major 
points which I believe to be of importance. 

Many organizations have wide requirements as pertains to computer 
usage- -business applications, management applications, scientific 
applications, to mention a few- -including many requirements which may not 
yet be known. 

Most of us would enjoy having our own private machines to work with, 
but this is a luxury which few can afford. I can speak from the point 
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of view of the not-so-affluent university in saying that we certainly 
cannot do so! 

Perhaps you have heard of colleges and universities which have 
many computers --even many large ones. Unfortunately, these few cases are 
overly publicized; the vast majority of educational institutions, however, 
are grasping and gasping for funds to even keep a computing center going. 
As an example, which can be repeated over and over, in my own case I teach 
two courses each semester, serve as Dean of the Graduate School, as 
Director of all of our National Science Foundation activities on campus 
and serve as Director of the Computing Center assisted by one full-time 
unit record man and one half-time lady to help with computing activities. 

Our main purpose for existence as educators in the computing field 
is to serve the manufacturers and the users. Relatively few of our 
students are being educated for our own use. 

But that is the subject of another talk. Today we are here to 
discuss a common problem- -at least common to most of us. We are faced with 
a problem of maximum production for minimum cost. In truth we very 
practically are concerned with a problem in Operations Research - should 
we suggest a computer solution to this problem? 

Perhaps if we were able to put ourselves in the shoes of management 
we would be better able to visualize the overall problem. But we have to 
live with the fact that most of us have to put up with a management which: 

(1) Cannot, or sometimes will not, comprehend computer concepts, 

(2) Often is in some way afraid of computer "take over", and 

(3) Must be concerned with money justification to several levels- - 
their superiors, shareholders, other members of organization. 
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Having acted and acting now on both sides of the proverbial fence, 
I have seen some of the problems faced by both sides. And I assure you 
that the problems of the administrator are not trivial. 

All too often we call upon the administrator to act in a capacity 
for which he is not equipped. Can we expect a non-computer oriented 
administrator to make decisions that we ourselves hesitate to make? 

POINT 1: Are we making a sufficient effort in educating and in 
keeping •with* our administrative staff informed? 

Nearly all of us sooner or later must discuss computer activities 
with our col leges- -if you haven't, don't despair, you will! Some of 
these colleagues are non-computer oriented. Even worse, some of them 
are other- computer (particularly other-concepts) oriented. 

Here is one point that is certainly a most important consideration. 
If the organization has a total of x dollars to spend on computers, and 
one of our colleagues convinces management that y dollars should be 
spent on a business use computer, it is somewhat obvious that x - y 
dollars will remain for our installation. Remember, because of the 
non- scientific orientation of many in management, and because of the 
strong arguments of persons in business applications, there will 
frequently be sympathy for fragmentation. 

Can't indeed two or more systems be consolidated into one? In 
many cases, yes. We know that the 1620 is a very versatile machine. 
If we inform our colleagues well of its capabilities, couldn't a Model II 
1620, 40K, 2 disk drives and printer do most jobs as well as or better 
than two systems costing more collectively? 

We begin to see this idea more with the Model 360. What are we 
going to do about it? I can foresee all kinds of decisions to be made 

1 9 
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with the 360 • It is quite possible that we will be forced to resort to 
the simulation of our computer installations to better determine just how 
they should be organized. I know of such a study made at Oak Ridge • 

In the meantime, decisions with the 1620 still must be made. Few 
360' s will be installed by most of us by two years from today. The 1620 
is still a good machine and it has much wear left in it. Those who buy 
or have bought 1620's have even a more serious problem. They will likely 
keep in touch with the 1620 for many years to come. 

POINT 2: Have we informed and communicated sufficiently well with 
our colleagues who are, or are likely to be, interested with computer 
activities? 

Then we come to systems as it applies to programming systems --mostly 
referred to as software. 



Until now we have considered two distinct divisions: IBM and Users. 
For some time now several people, including Jim Davidson, Charlie 
Davidson, Don Jardine and others have been working to get better- -no, to 
get a- -liaison between IBM and User activities in this area of endeavors. 

I would like to touch on two items: (1) Consultation with Users 
when IBM decides to produce any kind of programming package. (2) Consulta- 
tion with IBM when Users decide to produce a significant programming 
package. 

Can't IBM use our suggestions (1) because we know what we need and 
(2) to utilize the "brains" of those in the Users Group? Also, why all the 
duplicate effort? How many FORTRANs are needed? How many can we afford? 
Shouldn't some of the effort by Users in attempting to produce a FORTRAN 
which will work as it should be devoted to experimenting with other 
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languages? Surely those Users who earlier today heard the presentation 
of the characteristics of an outstanding FORTRAN compiler produced by a 
group of Users wonder why this has not already been available to us, 
instead of some of the processors we have been forced to use! 

We must not overlook the need for cooperation both ways. We 
recognize that this brings up ideas not often used--consultati|»q IBM 
when a User produces a significant programming package. At least three 
reasons exist for this: (1) Perhaps IBM knowledge can help the 
programming effort, (2) We might avoid duplication of effort by Users 
or by IBM, (3) IBM could advise Users of impending changes to prevent 
an effort being completely negated by new hardware or software being 
developed. We owe our colleagues the production of worthwhile packages 
if the Users' contributions to the Program Library is to mean anything. 

POINT 3: Are we presently communicating among ourselves, or with 
IBM, sufficiently well to achieve consolidation through the integration 
of programming systems? Or will we fragment ourselves by writing an 
infinite number of compilers to the exclusion of better things to do? 

Some of us are teaching- -some are involved in computer applications. 
A much smaller number is engaged in preparing software. Again I will 
state that we are all concerned with getting the best production possible 
from us and our machines. 

Aren't we charged with the obligation of doing best job possible? 
Shouldn't we all be concerned with the theme of our meeting- -consolidation 
through systems integration? 

But I should now begin winding up this talk. 



21 

A.I.S 



A few years from now a much better talk than I can give will be 
produced by a properly programmed computer. The announcement will read, 
"Our program for this week will be, 'Consolidation Through Systems 
Integration' by Miltivac 70809010. 

The computer's speech will be really interesting. It will have unity, 
coherence, and emphasis. It will meet all of the requirements of public 
speaking as listeners like it. The humor and jokes contained in the speech 
will have a mathematical probability of at least 99% of not falling flat. 
Such a speech will not have any terms in it that are strange to most of 
the audience, so the audience will not get lost. The talk will conform 
to all of Parkinson's Laws and Murphy's Laws. At the same time it will 
take into account what the audience already knows. And it will not be 
guilty of unnecessary repetition of stupid cliches. 

In fact, instead of a single speech to a whole audience, the computer 
will provide multiple simultaneous speeches for various segments of the 
audience. In front of each member of the audience will be several small 
dial switches. One will be marked "Speed Control" with positions labeled 
"You're going too fast" and "You're going too slow". Another switch will 
be marked, "Understanding Control", saying "Yes, yes, I know all that, 
please come to the point" and "You're way over my head, please start over 
and explain". A third switch will be marked "Boredom Control" with 
positions marked "You are being mildly interesting- -keep it up" and "You 
are boring me to extinct ion- -please become lively". 

I look forward to the time when a computer will be making speeches 
at meetings. I think of all the poor speeches produced by human beings 
that I have listened to and realize that in the future, if I live long 
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enough, I will listen to uniformly good speeches produced by computers. 
But until that time you will be forced to listen to speakers like me, 
I am able to recognize, however, that those of you who are still awake are 
reaching for the switch marked "You've talked too long— please shut up"! 
So I'm going to pretend that you shut the power off. 
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Attendants at Sessions of 
Statistics and Mathematics Programs Team 



Number Attending - $9 



'Interest - Statistics Only" 



George H. Woodruff 
Luke Sparvero 
Norman Goldman 
Myrna Weiner 
John Pate Pointer 
Welborn H. Smith 
Bill Thompson 



A, H, Best 

B. G. Wingersky 
S. J» Jurnack 
Paul B. Brittain 
Thomas C. Teeples 
F, Wang 

William B. Hise 



"Interest - Mathematics Only" 

Wayne Meriwether 
Gregson Payne 
Clayton E. Jensen 
Dario Bollacasa 
Samuel F. Martin 
Charles Weiss 
John Kent 

Reginald T. Harling 
Richard E. Grove 
M. S, Wingersky 
Brother B. E. O'Neill 



Patricia Lussow 
L. L. Cook 
Greta Larson 
Pat Moorhead 
David C, Pixley 
K. A, Bridgeman 
James J. McLaughlin 
Theodore R. Sabine 
Lawrence Wright 
Jane Bonne tte 



"Interest - Statistics and Mathematics" 



Sidney Kellman 
Richard Guion 
Martin Goldberg 
Joyce Currie Little 
Ralph E. Lee 
Judith S. Liebman 
Donald L. Flagg 
John E. Alman 
Mae E. Meads 
Eleanor Stone 
Diana Lloyd 
Vincent Gangi 



Charles Yackulics 
Simeon P. Taylor 
Richard E. Scott 
L. Ong 

J, W. Sawyer 
Lee Hendrickson 
James R. Oliver 
William Heltzel 
C, H. Remilen 
Nancy Paquin 
F, R. Henderson 
Frank N, Dickinson 



• Team Chairman 
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Report of Activities of 
Statistics and Mathematics Programs Team 



Approximately 75 people attended the session. A sign-up 
sheet was passed around. Fifty-nine people signed this sheet with 21 
indicating their interest was mathematics, 2h indicating statistics and 
mathematics and 1U indicating statistics. Only three people listed 
physics along with mathematics. A show of hands indicated that almost 
everyone in attendance at this session preferred to have statistics and 
mathematics sessions not held concurrently, since most people would 
attend both sessions if they are held separately. I assume that the 
number of papers submitted would be the determining factor in whether 
the sessions would be combined or held separately at the next meeting. 



Frank N. Dickinson, Chairman 

Statistics and Mathematics Programs Team 



Papers Presented At This Session 
Which Are Reprinted in Section h 



A General Function Subprogram - M, E. Munroe, University of New Hampshire 

Meeting Assumptions of Homogeneity of Variance - R # C. Irons, U.S. Naval 
School of Aviation Medicine 

FORTRAN Programs for Computing Elliptic Integrals and Functions - H. E. Fettis 
«_ j # c. Caslin, Aerospace Research Laboratories 

The Use of Discrete Convolution in the Analysis of Diffraction Patterns - 
J. S. Liebman and P. N. Johnson, General Electric Company 

A Computer Approach to Gamma Spectrum Analysis by the Simultaneous Equations 
Method - W. E. Carr, Department of Health, Education and Welfare 
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Attendants at Sessions of 
Plotting Programs Team 
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Number Attending - 26 



Charles Carlson 


Thomas Morris son 


Robert Chaput 


Edward Newman 


Russell Davis 


Nancy Paquin 


Henry Fell 


Charles Remilen 


Vincent Gangi 


I. Rosenbarker 


Kurt Germann 


Henry Scaletti 


Martin Goldberg 


Leonard Schiffmann 


Harold Gottheim 


Thomas Scott 


William Heltzel 


Arnold Spitalny 


Lanny Hoffman 


Wanda Stacke 


Robert Kenngott 


John Tiers 


James McLaughlin 


Charles Tackulics 


Robert Meckley 


C. Bailey - Team Chairman 
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Report of Activities of 
Plotting Programs Team 



The first meeting of those users active in plotting convened 
at 1:U£ p.m. on Thursday, May 7. Mr. C. Bailey of I EM in Endicott, N.Y., 
presided over the meeting. 

The first item discussed was the housekeeping problems involved 
in the isometric drawing and dimensioning of piping configurations. The 
problem of avoiding overlap or cross over of drawn lines is of major 
concern in producing such drawings. 

Mr. Newman mentioned that M.I.T. has created some problem 
oriented plotting languages and is in the process of tying them in with 
COGO. Both M.I.T. and Sun Oil Company have developed very similar basic 
SPS routines for plotting straight lines, circles, circular arcs, and 
alphameric characters, all with scaling and line width factors. M.I.T. 
is at present working on a program to draw electrical schematics while 
Sun Oil Company is preparing a program to draw isometric piping drawings 
along with a piping bill of material. 

The New York State Department of Public Works has used the 
plotter to sketch highway cross sections. 

The remainder of the session dealt with problems arising from 
the hardware itself. 

It was mentioned that several of the plotting units take from 
fifteen minutes to one half hour to warm up in the morning. During this 
interval the calibration device requires special attention. There seems 
to be a noticeable change in paper size in the direction of the carriage. 
The general opinion was that proper humidity control would alleviate this 
problem. 

An end of roll sensing device was mentioned as a solution to 
the annoyance of running out of paper, and plotting a large portion of 
the drawing on the roller itself. 

Ball point pens seem to be preferred on ordinary jobs, while 
ink pens have the edge for special jobs. Liquid lead pens have been 
found to provide a very dark, eraseable line. 

Mr. Newman was appointed alternate chairman for the Fall 

meeting. 

The meeting adjourned at 3*15 p.m. 



Thomas J. Scott, Acting Secretary 
Plotting Programs Team 
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Attendants at Sessions of 
Electronics Programs Team 



Number Attending - 8 

Lawrence Wright 
Keene A. Bridgeman 
Steve Jurnack 
Kurt H. Germann 
Hubbard A. Seward 
Herbert M. Wall 

Arnold Spitalny - Team Chairman 
Martin J. Goldberg 



Report of Activities of 
Electronics Programs Team 



A meeting of the Electronics Team was held on May 7, 1961u 

Arnold Spitalny was elected permanent chairman with Martin Goldberg 
as alternate chairman and secretary • 

Herb Wall was assigned as delegate to the Share Group Meeting to 
be held in June in Atlantic City. He will establish contacts with the 
corresponding electronic team from Share, 

Areas of interest discussed at the meeting were! 

1. Circuit analysis programs 

2. Filter design and synthesis programs 

3. Application of statistics to circuit analysis 

U. Programs for automatic layout of printed circuit 
boards and micro-electronic circuits 

5>. Programs for generation of circuit schematics 

It was suggested that other members of the Users Group be questioned 
as to possible interest in the Electronics Team, This could be done in the 
published proceedings. Interested parties should be asked to express their 
areas of interest and send these to: 

Martin J. Goldberg 

Computer Applications Engineer 

Norden Division, United Aircraft Corporation 

Helen Street 

Norwalk, Connecticut 



Arnold Spitalny, Chairman 
Electronics Programs Team 



Report of Activities of 
Education Institutions Programs Team 



In addition to the papers listed at the bottom of the page, 
the following paper was presented: 

Scheduling Students by Computer by 
Dr. Charles W. Williams, Washington and 
Lee University, This paper was published 
in Computer Applications Service. 

These papers were presented in the second half of the sessions 

1620 Programs to Implement the Quine Method 
Of Boolean Simplification by Prof. Thomas R. 
Hoffman, Union College, Schenectady, New 
Tork. This paper was presented at the 
Western Region Meeting in Phoenix. 

A New Course in Computer Programming by 
Prof. C. H. Davidson, University of 
Wisconsin. This paper was presented at 
the joint Mid-Western, Canadian Region 
Meeting in Chicago. 

An extra session was called for the following day. A discussion 
led by Dr. J. R. Oliver occupied the entire session. 



Norman Goldman, Chairman 
Education Institutions 
Programs Team 



Papers Presented At This Session 
Which Are Reprinted in Section h 



Automatic Scheduling and Registration in a Small College - A. F. Jackson, 
Agricultural and Technical College of North Carolina 

Plot Routine for NCB Load-and-Go FORTRAN - H. Seward, Newark College of 
Engineering 
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Attendants at Sessions of 
Structural and Civil Engineering Programs Team 



Number Attending - 36 



W # Brzozowski 
W. Burleigh 
W. Burrows 

C. Carlson 
R. Chaput 
R. Dabe 

R. Davis 

E # Dougherty 

D. Flagg 
H. Gelsi 

H. Gottheim 
W. Heltzel 
L. Hendrickson 
H. Hurt 
C. Jensen 
R. Kenngott 
J. Kent 
T. Latterner 



V. Lippo 

E. Newman 
N. Ogilvie 
H. Peterson 
C. Remilen 
R. Riley 

J. Rodgers 
J. Russell 

F. Salek 
J, Sanstag 
L. Schiffman 

T. Scott - Team Chairman 
W. Smith 
A. Spitalny 
R. Steinhart 
W. Thompson 

F. Wells 

G. Woodruff 
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Report of Activities of 
Structural and Civil Engineering Programs Team 



Two papers were presented at the Structural and Civil Engi- 
neering Team Meeting that convened at 9i00 a.m. on Friday, May 8, 1961*. 
Mr. A. D. Stasi from Edwards and Kelcey Company presented his paper on 
the use of the small computer as a processor of 0-D survey data, and 
Mr. E. J. Orth from Southern Services Company spoke about a newly deve- 
loped pipe stress analysis program. An abstract of Mr. Orth*s paper is 
attached to the minutes. 

Thirty-six persons attended this meeting. Out of these thirty- 
six persons, sixteen were Civil Engineers by profession and twenty-six 
indicated that they would be interested in perpetuating future sessions . 
Four papers were tentatively promised for the Fall meeting in Buffalo, 
New York. 

The meeting adjourned at noon. 



T. J. Scott, Chairman ff~^ 
Structural and Civil ^ 
Engineering Programs Team 



Papers Presented At This Session 
Which Are Reprinted in Section h 



Processing 0-D Survey Data on a Small Computer - A. D. Stasi and M. B. Lipetz, 
Edwards and Kelcey, Inc. 
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1620 USERS GROUP LIBRARY 
PROGRAM ABSTRACT 



1. T3TIE: General Pipe Stress 

2. AUTHORS: E. J. Orth, Jr., Southern Services, Inc. 

John Lewis, IBM, Birmingham, Alabama 

DATE: 5 March 1964 USERS GROUP CODE: 1125 SUBJECT CLASSIFICATION: 9.5 

3. DIRECT INQUIRIES TO: E. J. Orth, Jr. Watch KWIC Index 

Southern Services, Inc. for availability. 

600 North 18th Street 
Birmingham, Alabama 
323-5341 Ext. 2339 

4. DESCRIPTION: A four part piping stress program is presented - 

1. INPUT EDIT, 

2. FIEXIBILITY MATRIX CALCULATION, 

3. SOLUTION FOR BRANCH POINT DEFLECTIONS, and 

4. COMPUTATION OF STRESSES. 

The INPUT EDIT program performs a rigorous error check on the data 
file. A monitor is output giving coordinates of each point. Data file 
consists of system topological data and, for each branch, coordinates of 
first point reference global origin, expansion and movement data, coordinate 
differences between tangent intersections, and bend radii. Data is keyed 
by 3 letter alphabetic codes. 

The FLEXIBILITY MATRIX CALCULATION applies the algorithm described in 
the supplement to Kellogg^ book, "The Design of Piping Systems", Second 
Edition. 

The SOLUTION program allows for loops. Rigid stops, spring stops, and 
external forces may be oriented parallel to coordinate axes. The algorithm 
of Chen (ASME Paper No. 59-AFM-24) is used, with a novel approach to solu- 
tion of the matrix to take advantage of sparsity. Result is deflections at 
branch points and reactions each branch, all reference global origin. These 
are left in common storage, and Program 4 called thru a link subroutine at 
completion of solution. 

The STRESS and DEFIECTION program computes for each point of each 
branch- 

1. Deflections reference the point, 

2. Restraining reactions reference the point, and 

3. Combined stresses. 

Sum of restraining reactions about each branch point is also given. 

7. SPECIFICATIONS: A 60K card 1620 in FORTRAN II configuration is required. 
Conversion to 40K disc is possible, with major reprogramming. Peripheral 
equipment - reproducer, sorter, 40? E-8, keypunch. 

8. PROGRAMMING TYPE: FORTRAN II mainline, with subroutine and function sub- 
programs. 
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Attendants at Sessions of 
Electric Utility Programs Team 



Kttmbifr Attending - 38 

J. H. Russell 
John H. Evans 
Chris Martin 
Amo F. Olimn 
A. L. Lipton 
Q. W, Wilton 
John F. Leuer 
A. Doyle Baker 
Roy W # Thomas 
Jene T. Louis 

Frank J. Wells - Team Chairman 

Stanley A. Clark 

Herbert Blaicher 

Tom Hoke 

Robert W. Davies 

John E. Cromwell 

Vtikko A. Lippo 

Paul D. Folse 

Len Karr 



Dick Briesemeister 
Bob Steinhart 
George S, Haralampu 
P. J. Sullivan 
J* Coburn Hubbard 
E. H. Gerrish 
R. B. Riley 
W. J. Cook 

C. B. Scharp 

D. D. Williams 

E. H. Parker 
J, L. Davidson 
M. Q. DeQennaro 
E. E. Thompson 
B. E. Green 

J. A. Rodgere 
Robert R. White 
Ed Cox 
Ed Orth 



Report of Activities of 
Electric Utility Programs Team 



The first item discussed was a heat balance program entitled "Heat Balance I" , 
written by Bob White and Yosh Fujimura of the Department of Water and Power, City 
of Los Angeles. Bob White made the presentation. 

The Heat Balance program is highly subroutinized and uses a supervisory rou- 
tine to control subroutine sequencing. In preparing data, the user establishes 
the order of calculations. This order is entered as a sequence table. The 
supervisory routine refers to the sequence table to find out which subroutine to 
use next. All subroutines use common work areas, thus cutting down on linkages. 

The approach used by Gemgross on the 650 is used here. The beauty of this 
method is that the user can select from among the library of subroutines those 
necessary to describe his particular problem. Thus, theoretically, a general 
program results which is good for all situations. This is opposed to writing a 
speciallized program for each system. Note the word theoretically: while 955^ 
of all possible conditions may be provided for, there is always the possibility 
that an additional subroutine will have to be written for some special condition. 
This is very easy to do, however, due to the building block construction of the 
program. The writeup is very thorough, and very well documented. 

In its present form the program is written in SPS for 60K Disc Model II. 
However, since it is composed of three distinct parts, it may be reassembled 
for 20K. The three parts are input, solve, and output. The only function of 
the disc storage is to provide a resting place for the program. The program was 
conceived, tested, and used on a 40K machine. Core may be saved by omitting any 
subroutines not used. 

When asked if IBM would be receptive to setting this up for 20K, Bob 
Steinhart and Chris Martin did a truly magnificent job of bouncing the ball back 
and forth. All came out happily, however, because they are going to look into 
the matter thoroughly. Whatever that means. 

This program has been used both as a design tool and as a performance test 
tool. Results agree well with manufacturer's results and with test data, 
generally to within a few tenths of a per cent. Two days are required to set up 
data for a new steam plant: one to set up the system diagram, and one to fill 
out data sheets. Two or three machine tries are necessary to get valid answers 
due to data and setup errors. Bob emphasized that this is a qualitative tool, 
not a quantitative tool. Its usefulness is in providing comparisons. 

In preparing data, the user cuts out a set of symbols and assembles them 
with glue to simulate the particular system under study. It should be noted 
that since this is an iterative solution, the speed and accuracy of solution is 
affected by the sequence of calculations. Experience will be of immense help 
here. 
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The test case in the writeup is a 330 MW unit. Running time is 15-20 
minutes Model I and 3»5-4 minutes Model II, Once data is read, subsequent 
changes may be made without reloading the entire system. This is similar to 
load flow procedures. 

As set up now, the program will handle up to 3& pieces of equipment, 
including 4 turbines and double reheat. As the situation develops, subroutines 
for a moisture separator and a saturated turbine will be added for nuclear 
systems . 

The next item on the agenda was rf A Program for Evaluating Alternate 
Generating Plant Expansion Patterns" » by R. W. Davies of Baltimore Gas and 
Electric, in which portions of a paper presented at the 1963 American Power 
Conference were discussed, as indicated in the attached abstract. 

George Haralampu, New England Electric Service, gave a report from the 
Committee on Load Flow Modifications . The committee suggests: 

INPUT 1. Add one more significant digit to R, X, and capacitive 
susceptance fields. 

2. Remove restriction that total susceptance must not 
exceed .999» 

3. Make bus data FORTRAN compatible (minus signs). 

4. Eliminate voltage entry on all non-voltage controlled buses, 
and add feature to allow read/punch of voltage deck. 

5. Make interchange data FORTRAN compatible. 

6. For interchange, use 2 cards with 40 digits. 

OUTPUT 1. Since only 72 card columns are read by undoctored Format 

FORTRAN, move mismatch on bus card all the way over to the 
right, 

2. Eliminate alphabetic "TAP" for compatibility purposes. 
3» Change from per unit to per cent. 

4. Adopt general output format other load flows: that is, bus 
data first, followed by line data. 

Frank Wells will send out a questionnaire on these items to all of us . We 
will have the opportunity to accept or to reject the entire package, and to make 
comments. 

A very interesting report on a 1401 print program for Glimn's Load Flow 
was given by John Evans, Southwestern Public Service Company. This program 
accepts data describing how the 1 line diagram is to be printed, and then takes 
the output from Glina^s program and proceeds to print a system 1 line diagram 
with all pertinent information. John showed us a sample that printed an 80 bus 
system on 6 pages. Parallel lines and transformers are handled, and tap settings 
are printed. Up to 7 buses are printed across the page. Buses are printed 
horizontal as the paper is in the printer and lines vertically. Note that this 
does not just print numeric data on a preprinted diagram, but prints both diagram 
and data I 

A very simple procedure is followed to set up a particular system. A sketch 
is made to set up spacing and general arrangement, and then a set of data is 
recorded to specify spacing and placement to the 14Q1. 
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Present capacity is 99 lines, but this is more of a data sheet restriction 
than a program restriction. A 4K 1401 with 1 tape is required. John readily 
agreed to submit this to the library, which is to say he was not given much 
choice! 

The next topic of discussion was Allocation of Bus Loads for peak/off-peak 
conditions in load flow studies. If ratios are used, var problems often occur. 
One company arrives at off peak by taking a percentage off of peak loads and 
regulating voltages with generators. Another company uses a separate var fore- 
cast. The ideal situation exists when hourly loads are sampled on each sub- 
station. A fourth voice from the back of the room said that they monitored 
areas, pulled out non conforming loads, and then companies make complete and 
separate forecasts for peak/off-peak conditions. 

Arno Glimn's new B Constant Program was discussed by Roy Thomas, South- 
western Public Service Company. The entire package consists of 6 programs and 
calls for 20K auto divide. It is very easy to handle. A system with 13 
sources took 1:20 hours after the initial load flow was completed. Al Lipson, 
Virginia Electric and Power Company, had worked with this program also, with a 
system containing 16 sources, 123 buses, and 180 lines. Time required after 
load flow was 16 hours. Loss on the system was matched within 0.2 MW. Overall 
load level was 1800 MW, loss was 23 MW. The program is being typed, and should 
be available from the library soon. 

Len Karr, Burns and Roe, discussed work he had done on Economic Dispatch 
Tables since the Pittsburgh meeting. 

Use of the 1620 for power system dispatch , either directly or indirectly, 
was the next item. Roy Thomas was of the opinion that the 1620 is too small, 
depending upon how accurately incremental cost data is to be represented. A 
straight line representation of incremental cost is fine if sufficient segments 
are taken. John Leuer, Niagara Mohawk, brought out the usefulness of being 
able to change B constants at the drop of a hat with a digital system. 

An application of Linear Programming to Fuel Purchases was discussed by 
Ed Orth. To date, the individual companies of The Southern Company have been 
scheduling their purchases independently by time honored and hoary methods. 
When LP was applied to one company for the year 1963, savings in excess of 
$100,000 were indicated. Present plans are to take the much-worshipped "System 
Approach" and consider the entire Southern Company and all feasible sources. 
100 sources, each with a maximum and minimum plus 100 other constraints plus 16 
points of usage = 316 restraints. About 30% of all activities will be valid. 
This is obviously outside the 1620 range and in the 7094 range. At present, 
data is being gathered. 

Certain modifications on Jose Marina's Short Circuit Program have been made 
by Jene Louis of LILC0. He has removed R to leave X only, increased precision 
from 6 to 10, gone from 2 pass to 1 pass, altered output to give current flow 
on all lines rather than on adjacent lines, and removed all sense switch testing. 
System size is 150 bus/250 lines, and 15. 5K is required. Speed is equivalent to 
Jose Marina's program. Jene has made extensive use of network reduction to cut 
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down running time. This program is designed to handle the range of reactances 
from pipe type cable to overhead. Use of X only tends to give more conservative 
results . 

Jene also discussed Steady State Stability by use of Glimn's load flow 
program, 

J. C. Hubbard, Baltimore Gas and Electric Company, presented a very inter- 
esting paper on ft A Distribution Feeder and Substation Load Forecasting System" . 
Copies may be obtained by writing him at Room 1000, One Charles Center, Balti- 
more Gas and Electric Company, Baltimore 3, Maryland. 

Transformer Load Management came in for a good deal of discussion. No 
one is doing it all on the 1620. George Haralampu stated that some one in 
Boston is testing on the 1620, but will be working on the 1401. There are two 
reasons for this: they will be using the billing tapes, and the amount of 
sorting required. Dick Briesemeister, Consolidated Edison, said that they are 
using data from billing on their 7080. They are achieving good results on 
radial, not so good on network. 

On this point of networks, Tom Hoke, Oklahoma Gas and Electric, said that 
they have been handling their underground by using demands, with no diversity, 
coupled with a 1620 load flow. The big problem is data gathering on an under- 
ground network to start with a correct representation. 

In answer to a question on whether the main value was restricted to large 
metropolitan areas, the consensus was no, the value is system wide. 

There are two justifications for transformer load management: minimization 
of burnouts, and better loading. Better loading is probably the most valuable. 

A great storm of discussion ensued when the subject of Disc Pack Applica- 
tions came up, particularly on the question, disc or core? Given 20K, is it 
better to go 40K or 20K disc? Bob White strongly recommended core, because 20K 
disc, particularly under Monitor operation, is a slow situation. There is not 
much room left for the object program after 14K for FORTRAN II subroutines. If 
core images are stored, a different situation exists. When programs are stored 
on disc in relocatable format, it takes much, much longer to get them into core. 
George Wilson prefers the core image mode, wherein a simple minded monitor of 
sorts gets the core image from disc. Bob Steinhart made the point that although 
IBM is pushing Monitor, users do not have to use it ! 

V. A. Lippo, West Perm Power Company, gave a very interesting exposition on 
why they went from 40K to 20K disc. In essence, their philosophy is this: For 
a reduction in speed (about 10#) , they will have the limits removed from their 
problem solving capability, in addition to being able to operate around the 
clock under disc supervision. They do quite a bit of work in symbolic. 

The final conclusion to this discussion was that each installation has its 
own unique problem, and that thus, there is no general answer. One point that 
would point to disc is the capability to operate around the clock and thus get 
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the usage to the point that additional hardware is justified. That is, if 
management will buy that type of argument! It has been known not to. 

With this, our meeting drew to a close. There were many other interesting 
utilities-type presentations at other team meetings, but since your secretary is 
not endowed with the power of bUocation, he was unable to attend. 

A few items from the correspondence heap: Dick Smith, Gulf States Utilities, 
writes that they are increasing the size of Dr. Cooke ! s B constant program to 
60K. Their matrix short circuit program has been corrected, but mutuals are not 
yet in the picture. He has again had a chance to test the bus shuffle as a part 
of the Mozina load flow, and the 20-30$ decrease in running time was again 
apparent. 

Has anyone done anything to convert Alcoa's 40K sag-tension program to 20K? 
If so, please write Stan Clark, Public Service Company of New Hampshire, 1087 Elm 
Street, Manchester, New Hampshire. 

George Wilson of Black and Veatch, Kansas City, has written an elegant 
dating program for the MIS-LESS program in the library. Anyone interested may 
contact him directly. 

Well that about rounds things up at this end . Let 1 s keep the pipelines 
open, who knows, maybe somebody else will actually be interested in what you are 
doing! 



Ed Orth, Secretary 

Electric Utility Programs Team 



Papers Presented At This Session 
Which Are Reprinted in Section U 



A Distribution Feeder and Substation Load Forecasting System - J. C. Hubbard, 
Baltimore Gas and Electric Company 
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IBM 1620 Program Used in Study to Select 
Steam Conditions and Turbine Type for the 
No, 3 Unit Installation at Herbert A. Wagner Power Plant 

Construction is now in progress for the No, 3 Unit Installation 
at the Baltimore. Gas and Electric Company's Herbert A. Wagner Power Plant. 
The maximum net station sendout from this unit will be about 320,000 kw 
when operating at l.£ in. Hg abs condenser pressure. Steam conditions 
will be 3500 psig - 1000A000A°00 F. The turbine -generator will be a 
3600/l800-rpm cross-compound unit with a double flow low pressure turbine 
having UO-inch last-stage blades. Net station heat rate at full load and 
1*5 in. Hg abs condenser pressure is expected to be about 8 £00 Btu per 
kwhr. 



examine the relative economics of different steam conditions and turbine 
types. A large portion of these studies were performed on the Baltimore 
Gas and Electric Company's type 1620 computer located in the Electric 
Engineers Department. This machine is a Mark I Model with a 20 K memory. 



were based on the results of these studies. Additional details may be 
found in Volume XXV of the Proceedings of the American Power Conference 

dated March 26, 27 and 28, 1963 under the title "Economics of the 

Selection of 3!>00-Psig Double Reheat for a 300-Mw Unit" by R. W. Davies 

and G. C. Creel. 



Extensive studies were conducted during the spring of 1°62 to 



The selection of the above steam conditions and turbine type 
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D. J. Pearce 

H. C. Peterson 

I. E, Rosenbarker 

C S. Schrodel - Acting Team Chairman 

M. Seewald 

W. B. Thompson 

L. F. Zimmerman 
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Report of Activities of 
Chemical Engineering Programs Team 



The Chemical Engineering session opened with each person pre- 
sent making a short- statement about his area of interest. There were no 
formal papers given, so the session consisted of group discussion of 
those topics of greatest interest. 

Process design calculations and statistical correlations were 
two areas of general interest. 

The problems incurred in attempting to make generalized heat 
and material balances in process design were shared by many present, 
Convergance when recycle streams are present was one problem which was 
brought forth. It was also noted that the greatest complications some- 
times arose in simple blending and separating operations, rather than 
the ostensibly more complex distillation columns, heat exchangers, re- 
actors, etc. 

In the process design the correlation of properties is im- 
portant, and this led into the second area of interest - statistical 
correlations. There was a demonstration of one case in which multiple 
linear regression analysis was particularly useful as a method of 
correlation. In this case, equilibrium constants, normally taken from 
a nomograph, were computed by means of an equation found by regression 
analysis from the nomograph. 

Enthalpy correlations were also discussed and the problem of 
poor data on nonideal mixtures was brought up. The concensus was that 
the engineer in many cases needs better numbers than he now has at his 
disposal. 

This brought us around to the questions of accuracy of data, 
reproducibility of experiments, design of experiments and quality control. 
There was a great deal of interest in these topics but time did not 
permit discussion of them. It is hoped that much more in these areas 
can be undertaken at the Buffalo meeting in September, 



Diana A, Lloyd, Acting Secretary 
Chemical Engineering Programs Team 



C, S, Schrodel, Acting Chairman 
Chemical Engineering Programs Team 
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Rate Engineering Programs Team 
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Ken Brady - Team Chairman 
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Charles MoKelvey 

Berl Springer 

Jim Snterkia 

Bob Nichols 

Ray Van Wuyckhuyse 

John Monsees 

Ed Cox 

Rod Dabe 

Dick Davis 

Francis McCue 

Wanda Stacke 



Report of Activities of 
Rate Engineering Programs Team 



The second meeting of the Rate Engineering Programs Team was 
held in conjunction with the 1620 Users Group Meeting in Washington, 
D.C. on May 6 through May 8, 196U. 

Ken Brady presented copies of two programs used by Idaho Power 
Company, Copies of the first page of each program are attached (Attach- 
ments 1 and 2). I feel sure Mr. M. E. Byrne would furnish additional 
information upon request. 

Ken also presented a Long Island Lighting Company program which 
they used in connection with an appliance survey to determine incremental 
appliance consumptions. Copies of this program are available upon request 
from Ken* 

Jim Enterkin presented a New England Electric Service program. 
This is primarily a statistical program with the title of "Computation of 
Coefficient of Correlation (simple, linear correlation) by the short-cut 
Crude Data Method, Straight Line Regression, and Standard Error of Esti- 
mate". Attachment 3 as copied from the program gives a summary of the 
program. Jim said copies of the program would be available and that it 
would be possible to furnish a source deck to anyone really interested in 
the program. 

Ray Van Wuyckhuyse of Rochester Gas and Electric discussed 
their program for the "Adjustment of Sales and Revenues for Weather and 
Tariff Changes". This program was written for a lUOl and Ray says it 
taxed a 12K memory. Copies of the paper are available and he will answer 
any questions regarding the program. Portions of the first pages are 
marked Attachment lu 

Harry Fitch of LILCO next presented a paper entitled "Crossing 
Points, Rate Selection and Comparison". This program compares revenues 
for different rates and is used to help in rate recommendations where a 
customer has the choice between two rates. Copies may be obtained by 
contacting Harry, 

John Monsees, Con Ed, New York, presented the last paper. The 
sunmary of this paper is marked Attachment 5. Copies are available from 
John. 

Three sub-committees were set up by Ken Brady. These are as 

follows I 
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I. Bill Analysis 

1. Harry Fitch 

2. Bob Nichols 

3 . Ray Van Wuyckhuyse 

II. Forecasting 

1. Ken Brady 

2. Jim Quigley 

3. Ed Cox 



IIL Ogive 

1. Jim Enterkin 

2. Ken Brady 

All members were requested to select an example of the method they 
use in analyzing customers bills to Committee I. 

Ken Brady is to prepare a glossary of rate terms used in writing 
programs and submit it for approval at our September meeting, 

John Monsees is interested in contacting anyone using the computer 
to determine the Purchased Gas Adjustment* 

The next meeting will be held during the Users Group Meeting in 
Buffalo, September 2, 3 and k 9 196iu 



L. E. Cox, Jr., Secretary 
Rate Engineering Programs Team 



Papers Presented At This Session 
Which Are Reprinted in Section U 



1620 NEBS Program No. If? - Computation of Coefficient of Correlation (Simple, 
Linear Correlation) T?y the Short-Cut Crude Data Method, Straight Line 
Regression, and Standard Error of Estimate - R. C. Burrowes and 
J. E. Enterkin, New England Power Service""Company 

Crossing Points, Rate Selection and Comparison - H. L. Fitch, Long Island 
Lighting Company 

Electric Water Heating, Incremental Appliance Usage - K. W. Brady, Long 
Island Lighting Company 
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Summary 



This program takes as input the zone report from Billing and under con- 
trol of the header cards which have a proposed rate in them will recom- 
pute the revenue to yield what it would be had the new rate been in force. 
This program is used to study the effect of rate charges on revenue* 

Input 

Cards are read in this order: 

(a) Title Card 

(b) Minimum Card 

(c) Rate by blocks (maximum of 10 blocks) 

(d) Block Kwh (Maximum 10 blocks) 

(e) Any number of zone cards 

Cards b, c, d & e are repeated for. each schedule. There is a maximum of 
£ schedules permitted. There is also a limitation on the total number of 
blocks in all schedules and this maximum is 

Output 

The output is a report which turns out the old and new revenue on the zone 
report then this is reprinted but zoned up on the new blocks. All possible 
percents and per units are printed out. This is done for each report's 
schedule. Then a per cent summary is printed out at the end when all per- 
cents are per cent of total of all schedules. The detail of the printout 
can be more clearly described by showing an actual printout which follows. 
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PROGRAM U22 AUTOMATIC PLOT 



OF CUSTOMER KWH ZONES 



Summry 

This program takes the output of the program designed to accumulate zones 
from customer bills and sums them up into intervals, scales the sum and 
punches out a card which when printed 80-80 will yield a graph. There 
is also punched out at each interval the value of the Ogive curve as well 
as the actual value of the Kwh zone. A scale is printed out every 2k 
intervals the zone report used. As input is zoned every 10 Kwh. An in- 
terval is hO Kwh. 

Input 

The input has a header card and any number of 10 Kwh zone cards. Since 
the zone card is put out on two cards. Each zone input reads two cards. 
The format is so arranged so it picks out the data needed from the two 
cards. In this program the input actually reads three schedules. The 
first schedule (non-waterheating) is to be plotted and the sum of the 
second and third schedule to be plotted in a second curve. (Water-heating 
and total electric). In selecting the scale the highest per cent encountered 
is considered and the scale to read in 100 divided by the maximum per cent 
or the number of columns per per cent. If this is written in as a multiple 
of £0 the scale multiplier will be on even number since the basic scale is 
0-2*. 

Output 

When the output is punched the cards are sorted on Column 73 and the first 
curve will be in 1 and the second in 2. The output of each is then put on 
the Fortron printer board for the U07. This is wired so that a 11 punch 
in Col 72 will cause the card to be printed in Col 60-120 while the card 
without a 11 punch will print from 0-60. 
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1620 

NEES PROGRAM NUMBER l£ 



TITLE: Computation of Coefficient of Correlation (simple, linear 

correlation) by the short-cut Crude Data Method, Straight Line 
Regression, and Standard Error of Estimate, 

BY: R,C, Burrowes and J.E. Enterkin, New England Power Service Co. 

SC OPE : In common usage, the term "correlation" is used to mean the causal 
effect or co-relationship which exists between variables. The 
degree to which variables are co-related or influence one another 
is represented by a computed me.asure called the "coefficient of 
correlation, " Values of this coefficient range from zero (no 
correlation at all) to approaching +1 or -1 (approaching perfect 
positive or perfect negative correlation). 

Positive x correlation results when the movement of two series of 
variables is closely related in such a way that they move to- 
gether. An increase in one series accompanies an increase in the 
other, or a decrease in one series accompanies a decrease in the 
other, (For example: the related movement of degree days and 
heating fuel consumption). 

Negative correlation results when one variable increase as the 
other decreases, such as KWH used and average cents per KWH, 

This program will concern itself only with simple linear correlation 
the correlation of two variables (one of which is independent and 
one dependent) to be described by a straight line regression. 
Suffice to say that there are more elaborate methods which exist 
to determine the degree of correlation among more than two variables 
and for computing curved regression lines. 

The method outlined in this program is applicable, subject to core 
limitations, for any two series (one dependent and one independent) 
that may logically be assumed to influence one another. 
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Rochester Gas and Electric Corporation 

ADJUSTMENT OF SALES & REVENUES 
FOR WEATHER AND TARIFF' CHANGES 

PURPOSE OF THE PROGRAM 

In many companies the Rate Department is the group which provides 
management with the theoretical figures that are reasonable answers to the "what 
would happen if" questions. There is constant experiment with ideas to provide 
those answers from the data which are available. 

A responsibility of our Rate & Economic Research Department is the 
preparation of forecasts of customers, sales units and revenue dollars by months 
for seven different classes of business by each type of gas (mixed and straight 
natural). The Rate Department, for proper evaluation of the forecasts, adjusts 
the reported figures for prior years to the same standards which are being used 
for the forecast periods. 

The 196U Forecast presented special problems. The heating classes were 
to be estimated to the monthly requirements of a so-called "New Normal M as provided 
by the Weather Bureau* The revenues were to be estimated on the basis of rate 
schedules that were not yet in effect. All of our prior years data for normal 
requirements were developed to meet the so-called "Old Normal". The revenue data 
had been produced under two different sets of prior rate schedules. 

There are various ways and means of determining theoretically what 

revenues might have been if the weather had been normal, and there ar* several 

different ways of calculating what revenue might be on a proposed rate schedule. 

Our Rate Department, late in 1963, began experimenting with a mathematical method 

of developing these required answers monthly. Because of the tremendous amount 

of calculation required to test the formulas and to provide adjusted monthly data 

for several prior years for almost thirty different classes (by revenue code and 

by rate code), and the need to provide these statistics for the forecast in a very 
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short period of time, the problem was referred to the Data Processing Group. The 
job was completed by them from start to finish in about a months time. The pro- 
gram provided not only statistics for the 196U Forecast but also provided data for 
the years I960 to date on a truly comparable basis, that is, all sales adjusted 
to the requirements of the "New Normal" and all revenues adjusted to theoretical 
on the new rate schedules. This program is now providing the Rate Department with 
monthly sales and revenue figures for "normalized weather." 

It is interesting to note here that for the first three months of this 
year we have had, in total, almost normal heating requirements as related to our 
billing cycles. With all the gyrations of adjustments - plus and minus - the 
deviation between the total revenues as reported for these three months and the 
total revenues as developed for normal weather conditions is only 0,07% of the 
total. This is certainly encouraging on the adjustment for the weather aspect 
but we are still considering it to be an experiment. In addition, the rate 
schedule part must stand the tests of time and statistical methods. 

THEORY 

There are two theories involved in this program. One has to do with 
adjustment of sales units for weather. The other Is concerned with adjustment 
of revenues based on the revised sales units and/or a change in rate schedule. 
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OBJECTIVE OF THE PROGRAM 



The objective of this program is to accumulate the monthly- 
block analyses of the number of gas bills rendered and the associated consump- 
tion (in CCF) to an annual total within each block and to a grand total for 
all the blocks. A cumulative total is also calculated as each successive 
block is summed. When the last block is processed, the total number of bills 
and total consumption is computed. From the totals and the accumulated fig- 
ures the consolidated factor is computed for each block. (See Appendix for 
details.) 

To facilitate checking, the total number of bills and con- 
sumption is computed for each month and visually compared with the monthly- 
block analysis figures already available* 

The monthly data for bills and consumption is stored in 
12 columns, one for each month. By summing the first figures in every 
column, we obtain an annual total of bills or consumption for the first ana- 
lysis. (See Appendix for details.) 

The present monthly gas analysis involves eight tables 
representing our two service classifications, our space heating customers 
and the irregular bills rendered. Because part of Consolidated Edison 1 s 
service area is subject to a 1$ utility franchise tax, separate statistics 
are maintained on each table for the system and the area for which the tax 
is not applicable. For the sixteen required tables, whose number of blocks 
vary from U7 to £7, the total running time on the 16201, exclusive of list- 
ing punched output, is approximately one hour. This compares with a manual 
time of approximately ll£ man-hours. 

In the following appendix, the computer application is 
covered more technically. 
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Report of Activities of 
Operations Research Programs Team 



The Operations Research Programs Team meeting met with 
Dr. James R. Oliver serving as Chairman. There were approximately 
1$ persons in attendance . 

Two papers were presented in their entirety: EMAGE - An 
Economic Matrix Generator for a Distribution Transformer Management 
Program - by W. W. Pleines, Baltimore Gas and Electric Company (abstract 
attached), and a Multiple-Iteration Procedure for Engineering Design - 
by M. L. Baxter, Jr., Gleason Works (presented by Theodore J. Krenzer of 
Gleason Works) . 

Because of a time shortage, a third paper by Dr. James R. Oliver, 
University of Southwestern Louisiana, Lafayette, was presented in an 
abbreviated form. His paper was entitled, "A Random Number Technique 
for the Study of Machine Breakdown and Repair" . The technique used a 
random number generator to produce a sequence of random numbers used 
to determine whether or not breakdown would occur. During the study 
the probability of breakdown was varied over a considerable range. If 
breakdown occurred, a test was made to determine whether or not machines 
were waiting to be repaired. If they were not, the machine undergoing 
breakdown would begin to be serviced. If other machines were waiting, 
it was simply added to a line to be serviced as time became available. 
If no breakdown occurred, a check was made to determine whether machines 
were waiting to be repaired. If so, work continued on them; if not, the 
repairmen were then idle. In the case of machines waiting to be repaired, 
a summation was made of the idle machine hours. When no machines were 
being repaired, a summation was made of idle man hours. The values re- 
corded by the program were the number of time units used in the experiment, 
number of breakdowns occurring during the time period, number of time 
units the repair personnel were not engaged, and the number of time units 
(accumulated) during which machines were not in operation. 

Dr. Oliver pointed out an interesting but as yet undetermined 
result. When the probability, in per cent, of breakdown multiplied by 
the time units needed for repair equal approximately 100, a sudden dis- 
continuity was observed in the curve representing the idle machine hours 
versus time and the idle man hours versus time. Also, a sudden growth 
of the residual line occurred under similar conditions. 

The speaker made it plain that the work reported was of a 
preliminary nature and that additional investigation was being continued. 
Interested persons were encouraged to write for further information con- 
cerning this study. 
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There being no further papers to present or business to be 
transacted, the Chairman declared the meeting adjourned. 



Dr. James R. Oliver, Chairman 
Operations Research Programs Team 



Papers Presented At This Session 
Which Are Reprinted in Section h 



A Multiples-Iteration Procedure for Engineering Design - M. L. Baxter, Jr. 
Gleason Works 
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OPTIMUM REPLACEMENT OF CAPACITY-LIMITED EQUIPMENT 
W. W. PLEINES 



This paper explains the development of a cost-based model for 
transformer replacement which can be adapted for the replacement of 
capacity-limited equipment in general. The model, used as a component 
of the Baltimore Gas and Electric Company's Transformer Load Management 
System, is contained in a three-part program for the IBM 1620 computer. 
Using fixed and demand-dependent costs for all sizes and types of trans- 
former in place , it generates opportunity-loss matrices from which it 
determines > for each possible demand, whether a given unit should be 
left in place or changed to a larger or smaller unit of standard size* 



Attendants at Sessions of 
General Data Processing Programs Team 
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W. F. Burleigh 
T. L. Driscoll 
R. H. Davis 
N. Ogilvie 
G. M. Baber 
K. R, Berger 
E. M. Hamilton 
L. Schiffman 
W, P. Wynn 
A. Spitalny 
P. Lussow 
S. W. Craig 



S. Arnold 
D. D. Williams 
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M. N. Shore 
J, Stansbury 
E* H. Parker 

R. Soucy - Acting Team Chairman 



3.10.1 



Report of Activities of 
General Data Processing Programs Team 



The Programs Team Meeting for General Data Processing was called 
to order by temporary Chairman, Robert Soucy. 

Following the theme of the May Meeting, three special session 
program papers were delivered at the meeting. They were* 

a. "Electric Load Statistic System" by E. H. Parker, 
Baltimore Gas and Electric Company. 

b. "A Work Performance Monitoring System" by D. D. Williams, 
Baltimore Gas and Electric Company. 

Both of these papers clearly indicate how the integration of 
data can be a source of valuable management reports and operating in- 
formation. 

A sample of the management reports produced by these programs 
were distributed to those attending the meeting. 

c. "ZIP - A Multiple Line Keyword in Context Program" by 
T. J. Scott, Sun Oil Company. 

Mr. Scott 1 s program is designed to perform a Keyword (or Key- 
phrase) in context analysis on a multiple line or card abstract, paragraph 
or magazine article. 

An outline of Mr. Scott's paper and a sample of "Keyword Phrases 
in Context" output list was distributed to those attending the meeting. 



R. Soucy, Acting Chairman 

General Data Processing Programs Team 



Papers Presented At This Session 
Which Are Reprinted in Section U 



ZIP - A Multiple Line Keyword in Context Program - T. J. Scott, Sun Oil 
Company 

A Work Performance Monitoring System Designed for an Electric Utility Meter 
and Installation Department - D. D. Williams, Baltimore Gas and 
Electric Company 
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An Electric Load Statistics System for an Electric Utility - E. H. Parker, 
Baltimore Gas aikl Electric Company 
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Attendants at Sessions of 
1710 Users Sub-Group 

Number Attending - 17 

J. J, Owen - Team Chairman 

Patricia Lussow 

G. F. Hamilton 

A. J. Palmieri 
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J. W. Garzanelli 

D. Pearce 

S. Lopes 

R. P. Paterniti 

L. Stewart 



Report of Activities of 
1710 Users Sub-Group 



Mr. J. J. Owen, Chairman for the 1710 Users Sub-Group opened 
the meeting with a welcome to all present, and a call for additional 
papers at the next meeting. 

There were approximately 30 people in the meeting at various 
times although only Ih users and 3 IBM personnel signed the attendance 
roster. A list of those signing is attached. It is assumed that these 
are the people who are most interested in the activities of the Group. 

It was announced that plans for the next meeting included a 
discussion of 1710 Executive systems by IBM specialists. 

The program for this session consisted of two integrated pre- 
sentations covering aspects of system planning. The first paper entitled 
"Installation Planning for an IBM 1710 System" by Mr. Lawson E. Stewart 
of the IBM Corporation, Baltimore, Maryland, covered System Planning and 
1710 Installation Implementation. Mr. Stewart covered the general sub- 
ject of project organization and planning. He began with a suggested 
outline of broad goals for the project* 

1. Effective translation of Management plans into 
a working system. 

2. Education for future projects. 

3. Meeting of project goals and deadlines with 
least effort and cost. 



With respect to the first point, Mr. Stewart emphasized that most 
of the less than successful computer control installations throughout the 
industry were the result of improper definition and understanding of pro- 
ject goals. To prevent this occurrence, Mr. Stewart recommended direct 
involvement of top management in the project via an initial report covering 
goals and intended methods of achieving them, plus periodic reports of 
progress and plan modifications* 

Education for future projects, reports Mr. Stewart, stems from 
a conscious effort to man the project with this view and from a comprehensive 
system of documentation which covers not only programming but physical 
planning and all other aspects of the project. 

Meeting of goals and deadlines requires careful coordination 
and control. The most important aspects of this would be selection of 
proper personnel for each job function on the project team, assurance of 
complete communication between team members, and use of such planning 
tools as critical path analysis. On this last point, Mr. Stewart dis- 
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played a portion of a critical path schedule prepared using the IBM LESS 
program. He emphasized the need to include all portions of the projects 
in the time estimates and job descriptions. 

Following this portion of the discussion, Mr. Stewart presented 
outlines of the functions to be considered in any computer control appli- 
cations 

For Known Applications 

1. Establish specific goals for this system, long range and short range. 
What is to be accomplished, by when? What would be the ultimate 
extension of this application? 

2. Organize the basic project team to include these functions or abilities - 
Project leadership - a leader and administrator, not just a technical 
specialist. Process knowledge - practical experience plus sound know- 
ledge of fundamentals. Instrumentation - knowledge of measurement 
techniques and signal treatment. Programming - math and system know- 
ledge . 

Installation - field installation experience and checkout techniques. 
Documentation - probably a full time job for one person, to maintain 
documentation standards and assure the satisfactory preparation of 
all reports and final documentation. 

3. Prepare critical path schedule for total project: Takes about three 
weeks to complete the first time. 

h. Establish a list of reports and calculations to be performed. 

£• Generate a sensor list. 

6. Analyze accuracy requirements for all measurements, so that high 
precision instruments are used only where needed. 

7. Follow a formal schedule of project meetings and benchmark progress 
reports . 

8. Check and plan completely the physical installation. 

9. Prepare program flow-special emphasis here on the use of Decision 
Tables for both program logic planning tool and as program documentation. 

10. Program checking by simulation or use of a 1710 system. 

11. Conduct electrical noise tests at the installation site. 

12. Design the operator's console. This was considered a vital point 
from the view that poor design would reduce operator cooperation and 
system effectiveness. 

13* Operator training in use of the console and computer program is a 
must for successful operation and application growth. 
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lU. Model Building Tests are required with just about any computer con- 
trol application. This phase should be under the direction of an 
expert in this particular work. This man normally has as a back- 
ground, practical experience with the operation of the specific 
process, knowledge of statistical techniques and high-precision 
measurement. 

l£. Document all phases of project as you go, and prepare progress re- 
ports which serve to inform top management as well as continually 
selling the advantages of the project. The greatest failing in 
project teams is the lack of understanding that a project must be 
continually "sold" to top management in order to keep interest and 
support for the project. 

For New Applications 

List included only additional requirements above those for a 
known application. 

1. Study the basic process. Accumulate all known information on theory 
and practical operation. 

2. Run manual tests to establish important process parameters. 

3. Establish, by data analysis, potential control areas. 
U. Analyze measurement and control practicality. 

£. Install system for data acquisition and reduction. 

6. Develop math model of the process and verify. 

7. Proceed as with known application. 



Mr. Stewart concluded with a plea for more presentations in 
this area as more 1710 systems go into operation. 



The second paper of the session entitled "Some Early Experiences 
in the Design of a System for an Electric Utility Power Plant by Mr. William H. 
Beck of the Baltimore Gas and Electric Company introduced specific material 
used in the documentation and planning of a 1710 System for the Herbert A. 
Wagner Electrical Generating Plant of the Baltimore Gas and Electric Company. 
Mr. Beck presented copies of the documentation and programming standards 
adopted by his company for the 1710 installation project. In the discussion 
of the attached standards, Mr. Beck emphasized the fact that a primary goal 
of the 1710 installation was the acquisition of knowledge and education in 
computer control of power plants. For this reason, additional care is going 
into the development and following of standards for documentation of programs, 
project planning, writing of reports and logging of data on effort and time 
required for each aspect of the entire project. 

As a specific example of the planning outlined in Mr. Stewart' s 
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discussion, Mr, Beck's presentation was considered by those present to 
be extremely valuable and exactly the kind of specific, practical material 
needed for other users about to embark upon an installation. 

The meeting concluded after a question and answer period which 
covered the two presentations and additional material on measurements, etc. 



J. J, Owen, Chairman 
1710 Users Sub-Group 



Note ; Formal copies of the papers by Mr. Stewart 
~ and Mr. Beck are not available for reprinting 
within these "Proceedings". 
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COMPUTATION OF COEFFICIENT OF CORRELATION 
(SIMPLE, LINEAR CORRELATION) BY THE 
SHORT-CUT CRUDE DATA METHOD, 
STRAIGHT LINE REGRESSION, AND 
STANDARD ERROR OF ESTIMATE 



R. C. BurrowBsand J. E. Enterkin 
New England Power Service Company 



1620 

NEES PROGRAM NUMBER 15 



I TITLE * 

II BY* 

III SCOPEt 



IV TEST 
DATA* 



Computation of Coefficient of Correlation (simple, linear 
correlation) by the short-cut Crude Data Method, Straight Line 
Regression, and Standard Error of Estimate, 

R.C. Burrowes and J.E. Enterkin, New England Power Service Co* 

In common usage, the term "correlation" is used to mean the causal 
effect or co-relationship which exists between variables. The 
degree to which variables are co-related or influence one another 
is represented by a computed measure called the "coefficient of 
correlation." Values of this coefficient range from zero (no 
correlation at all) to approaching +1 or -1 (approaching perfect 
positive or perfect negative correlation,)* 

Positive correlation results when the movement of two series of 
variables is closely related in such a way that they move to- 
gether. An increase in one series accompanies an increase in the 
other, or a decrease in one series accompanies a decrease in the 
other. (For example? the related movement of degree days and 
heating fuel consumption). 

Negative correlation results when one variable increase as the 
other decreases, such as KWH used and average cents per KVJH. 

This program will concern itself only with simple linear correlation; 
the correlation of two variables (one of which is independent and 
one dependent) to be described by a straight line regression. 
Suffice to say that there are more elaborate methods which exist 
to determine the degree of correlation among more than two variables, 
and for computing curved regression lines. 

The method outlined in this program is applicable, subject to core 
limitations, for any two series (one dependent and one independent) 
that may logically be assumed to influence one another. 



The following data (taken from a sample of New England Utilities)) 
will be utilized to illustrate the 1620 Fortran program designed to 
calculate the coefficient of correlation, the "Least Squares" 
straight line regression- that best describes the relationship, and 
tn$ standard error of estimate which indicates the amount of 
dispersion in the dependent variable, which we have failed to account 
for by the regression line. 



X ■ independent variable 
Ult. Customers per pole mile 
12. 

19. 
21. 
36. 
Ii3. 

1*9* 
$$. 
60. 

65. 
70. 



Y » dependent variable 
KVA per line transformer 

9.3 
11.1 

10.9 
16.U 
21.1 
20.5 
17.8 
28.1 
23.6 
Uli.5 



7 



4*. A/ 
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105. 

120. 
183. 



30.1 
50.0 



REFERENCES t 



"Formulas 



1. 



Coefficient of correlation 




where * 



r ■ coeff. of correlation 
■ slim of 

"5Lxy ■ sum of the individual products of each x and y 
deviations from their respective means. 

?Exr • sum of the squares of the x deviations from the 
mean of X 

Zy* ■ sum of the squares of the y deviations from the 
mean of Y 

The short-cut method utilizes the "centering process* (as out 
lined in appendi x D ) to arrive at the sum of the squares 
of the deviations of X, Y and the sum of the products of the 
deviations X times the deviations Y. 

2. Linear Regression Equation 



T - a + bX, b ■ 




X 



where t 

T 



computed trend of Y variable 

same as defined above 

same as defined above 

arithmetic mean of X series 

arithmetic mean of Y series 

original values of independent variable 

original values of dependent variable 




X 
Y 
X 
Y 



As a further 



short-cut, the two normal equations 



Zy 

ZXY 



Na '+ -bZx 
aTEX + bSx^ 



can be reduced, to 



a - Y - b X (origin at X - 0) 
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where $ 

a * the computed or trend value of T when X * 

b * the amount and direction of slope at the point 
where X * 
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PROGRAM FORMAT ? 
A. Input Data 

The X and Y series may be of any length up to 3&6 pairs, but there must 
be one X value for each Y value. 

Two F 10.U formats permit use of X and Y data of six whole numbers and 
four decimals. However, machine storage capacity and output formats may 
restrict the use of long series of large digit numbers* 

The first entry card must be an ,1 Item w card showing the number of pairs 
of X and Y variables in the series to follow. This item number must be 
punched with its units position in Col. 3* (see appendix A). 

X, Y data cards follow, and are entered in the following sequences 

XI Y 1 Card 1 

X 2 Y 2 Card 2 

ft 

— — — tit 

X n Y n Card n 

with the X 1 value punched in cols. 1 through 10 (the cols. 7, 8, 9, 10 
representing four places to the right of the decimal point) and the 
corresponding Y 1 value punched in cols. 11 through 20 (the cols. 17 , 18, 
19,20 representing four places to the r^ght of the decimal point). 
Each card contains an X value and its corresponding Y value. 
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An attempt has been made to make the formats as broad as possible, 
but on occasion we have experienced an overflow in printing the „ 
sum of the squares of the y deviations from the mean of Y ( symbolical lyiy ) 
coded as SOYSQ and printed in output as SUM DEV Y SQ. When this overflow 
occured, the number was printed in "floating point •« This «F-8 overflow 
error" did not invalidate the computations! it merely shifted the mode 
of output for this particular value from fixed point to floating point* 

B. Symbols Used in the Program are * (see Appendix B) 

ITEM ■ the number of pairs of X and Y items to be correlated 

SUMX ■ 2lX ■ total of X series 

SUMY ■ 2Y - total of Y series 
SMSQX - 2.X 2 - sum of squares of each X value 
SMSQY ■ 2:Y 2 ■ sum of squares of each Y value 
SMPRO - 2XY - sum of the product of each X value multiplied by 
its corresponding Y value 

AVGX - 3c - arithmetic mean of the X series 

AVGY ■ Y - arithmetic mean of the Y series 

SOXSQ ■ Zx 2 ■ sum of the squares of the deviations of each X value 

from the mean of the X serieso 
SOYSQ - 2.y 2 ■ sum of the squares of the deviations of each Y value 
from the mean of the Y series, 
SOXY » 2xy ■ sum of the cross products of the deviations of each X 
value from the mean of X times the deviation of each Y 
value from the mean of Y» 
R » the coefficient of correlation 
T » the computed trendjralues of Y 
A • the Y intercept - Y - B X 

B • the amount and direction of slope at the point where 

X - ; or 2xy -J- 2Lx 2 
D » deviations of actual Y values from the computed trend values of Y« 
. SMDSQ - /E.D . - sum of the squares of the deviations of actual Y values 
from the' computed trend values of Y» 
SUMT « sum of the trend values of Y 



STDEE 



■ 



5lD 2 - standard error of estimate 



COUNT 



SQRTF ■ square root 
BEAD ■ read via punched card 
PUNCH • punch output on card 
PRINT - print output on typewriter 
COUNT ■ ITEM 

C, OUTPUT DATA (See Appendix C) 

During the course of the program execution, the value of the coefficient 
of correlation R, the trend equation constants A and B, and the count of 
the number of pairs of X and Y data are printed on the typewriter as soon 
as they are computed to provide immediate answers* 



V./ 
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Complete statistics are punched on cards for separate listing, and 
these include the following t 

R » coef . of correlation 

A - regression constant^ Equation, Y • A ♦ BX 

B ■ regression constant J 
Count * no. of pairs of X and Y data 
List of X, Y, Trend Values, Deviations from Trend 
Std. Error of Estimate 
Mean of X series 
Mean of Y series 
Sum of Dev. of X, squared 
Sum of Dev. of Y, squared 
Sum of Dev. of XY 
Sum of Dev. from Trend, squared 

NOTE S' 

The standard error of estimate is a measure, in absolute terms, of the 
variation of the actual values of the dependent variable (Y) from their 
estimated values. It would be expected that 6b% of the actual Y values 
would fall within + 1 std. error est. of the regression line, 9$% within 
♦ 2 std. error estT and 99 •!% * 3 std. error of est. 

ANALYSIS OF VARIANCE 



The std. error of estimate, when squared, represents the amount of variance 
unexplained by the regression line. 

The Sum DEV Y SQ divided by Count or ( Zy 2 ) represents total variance . 

(~N ) ~ 

Total variance minus unexplained variance ■ explained variance . 

The explained and unexplained variance can be turned into % of total variance for 
quantitative analysis of the success of predicting from the regression equation. 

The square of the coeff. of correlation also equals the % of explained variance* 

Although the analysis of variance has not been programmed, the necessary 
components are readily available and the hand calculation is so minor that it was 
thought to be worth including to round out the correlation analysis* 



JEE/mib 
3-11-61* 



APPENDIX A 
ILLUSTRATION OF INPUT CARDS 



r 



ifc-uooo 
*13 



500000 
Y13 



DATA DECK - LAST CARD 



000 oo||||oo 000|||||0 0000 00 00 00000 00000 0000 000 00 00 00 0000000 00000 00 

1 } J 4 j t i t t it it ii i) u i) it u it it » n a » » » m ii .'• n » jiji u m a » ji n » «o <t « o *tn w » » a a ii u u m m « h » » n ti u u m » w n w *» n » n n 

1 1 1 1 I 1 I I 1 1 1 I 1 1 I t 1 1 1 I 1 1 1 t 1 1 1 1 f 1 1 1 1 1* 1 1 1 1 1 1 1 1 1 1 1 1 1 1 I 1 J 1 1 1 1 1 t 1 1 I I 1 t 1 1 1 1 1 1 1 1 1 1 1 
222222 22222222222222222222222222222222222222222222222222222222222222 2 2222 2 

3 3 3 3 3| 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 

4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 

5 5 5 5 5 5 5 5 5 5 5 5 5 S| 5 S 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 

6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 
77777777777777777777JJ7777777777777777777777777777777777777777777777777777 
8888|8 888 81888888 888888 88888 8 8888 88888888888 88888888888 888888 8888888 8 8 88 8 8 
9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9990999999999999999999999999999 

I ? 3 4 } I ; I I H i( i? » ii h it h n a fa ?i " g^^^frfr - 3 " '•' " u v ' 14 "" M 1UQJ1 u ti u t\ tk u u tut 11 hi si st ss * sfi ami »um»mihih n )' u.n h 



1 1'iiHMiitti 





;s ;t ii » ii >: 
111111 

2 2 2 2 2? 

3 3 3 3 3 3 

4 4 4 4 4 4 

5 5 5 5 5 5 

6 6 6 6 6 6 

7 7 7 7 7 7 

8 8 8 8 8 8 

9 9 9 9 9 9 

n it u it n »: 



XI 



Yl 



DATA DECK - FIRST CARD 



o||| 000000000000000000000 00000000 000000000000000000000000000000 

1 I 1 4 i I ? I I H II II IJ 14 H II IT II H»llMOI4n J» JI It It Nil It JIM»3»)7 JI JI404I 42 4J«43« 47 4l4l»»i»UI4»5IJ7SIMHII«M»4 WMIJUUTOll II » 14 » III? T| || 10 . 

11 11 1 1 1 1 1 1 1 I 11 1 I 11 1 1 1 1 1 1 11 1 1 1 1 11 1 11 11 1 11 1 1 11 1 11 1 11 1 I 11 1 1 1 1 1 1 11 I 1 1 1 1 1 11 It 11111111 
222 2 2022222222222222222222222222222222222222222222222222222222 2 222 2 2 2222 22 22222 2 

3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3|333333333333333333333333333333333339333333333333333333333333333 

4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 
55555555555555555555555555555555555555555555555555555555555555555555555 555555555 

6 6 6 6 6 G 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 

7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 



99999 9 99999 9 9 fl 9| 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 8 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9999 

^WJ^J^IIJOJMTIllMlllin « 



ITEM CARD Showing that there are 13 pairs of X and Y 
. values in this input to follow, 

000000000000000000000 00000000000000000000000000000 00000000000000000000 

1 j i 4 I i i i i io n injMiiiiiniiiMtittttMaNtniflWJiirjiMaiMi^ 

i|i 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 ii 1 j n 1 1 1 1 1 ii 1 1 1 1 1 1 n i ii 1 1 1 ii 1 1 1 n 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 

2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 

3 3| 3 3 3 3 3 3 3 3 3 3 1 3 3 1 3 J 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 J 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 

4 4 444444444444444444444444444444444444444444444444444444444444444444444444444444 
555 55 5 55 5 555555555555555555555555555555555555555555555555 5555555555555 5555555 55 5 
6^6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 ( 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 

7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 

8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 6 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 

9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 8 9 9 9 9 9 8 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 S 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 

i i i * i i i i i iiiMnjMt>Ki>t»nM}iff»»nftj>»ntti))'i))4»jifl)^!Mt^ 
use sow 
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APPENDIX B 

08300 C COEF. OF CORRELATION, STRAIGHT LINE REGRESSION ANO STD. ERROR "S ' 

08300 C R.BURROWES AND J.ENTERKIN JANUARY 1964 JP 

08300 DIMENSION X(366), Y(366) ^ 

08300 10 SUMX » 0. 

08324 ... SUMY » 0. 

08348 SMSQX =0. 

08372 SMSQY «,0. 

08396 SMPRO » 0. 

08420 READ 1, ITEM 

08444 1 FORMAT (13) 

08466 COUNT » ITEM 

08502 D0100 1=1 , ITEM 

08514 100 READ 2, X(l), Y(l) 

08634 . 2 FORMAT (2F10.4) 

08662 . D0101 1=1 r JTEM 

8674 SUMX .« SUMX + X(l) 

08734 SUMY « SUMY + Y(l) 

8794 SMSQX = SMSQX + X(l)**2 

08866 SMSQY = SMSQY + Y( I )**2 

08938 101 SMPRO » SMPRO + X(I)*Y(I) 

09070 AVGX = SUMX/COUNT 

09106 AVGY = SUMY/COUNT 

09142 SOXSQ =SMSQX - AVGX * SUMX 

09202 SOYSQ =SMSQY - AVGY * SUMY 

09262 SOXY =SMPRO - AVGX * SUMY 

09322 R = SOXY/(SQRTF(SOXSQ * SOYSQ)) 

09382 B « SOXY/SOXSQ 

09418 A = AVGY - B * AVGX ^ 

09478 PRINT145,R,ITEM 

09514 PUNCH145,R,ITEM 

Q9550 145 FORMAT (.1X1 4HR »,F1 4.4/1 XI 4HC0UNT '-,19/) 

09676 . . PRINT147,A,B 

09712 PUNCH1.47,A,B 

£9748 147 FORMAT (. 1X1 4HEQUAT I ON , Y «,F17.7,3H + ,F17.7,4H * X/) 

09852 .. PUNCH148 . 

09876 148 FORMAT (1 0X1 HX,1 6X1 HY # 14X5HTREND,13X4HDEV./) 

TOO 82 . SUMT =0... .. ... . 

T0 106 SMDSQ =0. 

T0130 SMSQX-O, 

"0154 D0102 I -1.ITEM 

0166 T - A + B , * X(l) 

'0238 D- Y(l )- T 

"0298 SMSQX-SMSQX+D 

T0334 SMDSQ - SMDSQ+D**2 

TO 3 82 SUMT m SUMT + T 

T0418 102 PUNCH 48, X(l), Y(l), T,0 

T0562 .48 F0RMAT(1X4F17.7) 

T0608 . STDEE « .SQRTF (SMDSQ/CQUNT) 

T0656 PUNCH 48. SUMX, SUMY, &UMT,SMSQX 

10716 PUNCH47, STDEE, AVGX 

T0752 47 FORMAT (7//1 XI 4HSTD ERR. -,F17.7/1X14HMEAN X -,F17.7) 

TO 888 .. PUNCH50, AVGY, SOXSQ . f 

T0924 50 FORMAT ( 1X1 4HME AN Y -,F17.7/1X14HSUM DEV X SQ.-,F17.7) ^ 

T1044 ... PUNCH52.>S0YSQ,S0XY 

76 
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I1200 

Tl224 
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1298 



APPENDIX B (contd.) 

52 FORMAT (1 XI 4HSUM DEV Y SQ.-,F17.7/lXlifHSUM DEV XY 
PUNCH54.,SMDSQ ' 1 ,WWf1 ULV XY 

54 FORMAT (1X1 4 HSUM DEV D SQ.-.F17 7) 
• GO TO 10 ... » r '/-// 
END 



-.F17.7) 



PROG 
T9989 
19949 
19909 
T9869 
12539 
12509 
12469 
T2429 
T2389 
T2349 
T2309 R 
12269 0145 
12229 0148 
T2189 01.02 
T2I.49 Q048 
12109 0050 
12069 0054 
SW 1 OFF TO 



SW1 OFFFOR 
SI NF 
ATANF 
LOGF 
ABSF 
0010 
SUMY 
0001 
0100 
0101 
AVGY 



SYMBOL 
T9979 
T9939 
T9899 
T9859 
T2529 
T2499 
T2459 
T2419 
12379 
12339 
12299 
2259 
2219 
*2179 
12.139 
12099 
12059 



TABLE, 

COS 

EXP 

SQRT 

X 

SUMX 
SMSQX 
0001 
I 

000 

SOXSQ 

Q01 

ttl45 
0148 
T,. . 
STDEE 
£050 
0054 



PUSH START 

T9969 COSF 

19929 EXPF 
, T9889 SQRTF 
T6202 

-12519 0000000055 
12489 SMSQY. . 
12449 ITEM 
12409 fi002 
12369 0002 
T2329 SOYSQ 
T2289 B 



: 



2249 0147 
2209 SUMT 



12169 
T2.I29 
T2089 





£047 
0052 



GNORE. SUBROUTINES, PUSH START 



19999 SIN 
19959 ATAN 
19919 LOG 
19879 ABS 
T6199 Y 



T2549 



T2479 
T2439 
12399 
T2359 
T2319 
12279 
T2239 
T2199 
12159 
12119 
12079 



SMPRO 

COUNT 

0002 

AVGX 

SOXY 

A 

0147 

SMQSQ 

Q048 

Q047 

0052 



PROCESSING COMPLETE 
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APPENDIX C 



R * 


•8836 






COUNT * 


13 






mm 4*^* • * *m m *. a 

EQUATION* Y * 


8*8943910 9 


.2507991 * X 




X 


Y 


TREND 


Dtv» 


12*0000000 


9*3000000 


11*9039810 


-2 •60398 10 


19*0000000 


• « « AAAAAA 

11* 1000900 


1 3*o!> V!> 7DU 




21 #0000000 


10*9000000 


14*1611730 




a * AAAAAAA 

36*0000000 ■ 


4O*«lU00UUU 


1 ft 

A r • 7« 3 lo i u 


-1*5231610 


43*0000000 


21* lOOOUUU 




1 .42 1 2440 


49*0000000 


2v* 5v9UUUU 


9 1.1 flll^ft 1 ft 


— »£&355 10 


&o rtrtrtftftftft 




fi#IQ/ft ?V 


-5.8915430 


9U*UUv/WUUVI 


cOtlvUUVUV 




4*1576580 


69*0909000 


. *5*OVUwWUW 


* ? * *7BJ3»W 


-1.5963380 

m W my w \m my mw w 


70*0000000 


44*3000000 


26*4503340 


18*0496660 


105*0000000 


30*1000000 


35*2283050 


-5.1283050 


120*0000000 


43*4000000 


38*9902930 


4.4097070 


C JLi^v 183*0000000 


50*0000000 


54*7906410 


-4 .7906410 


^ "XfT^ "? w 149.0000000 


326*8000000 


326*7999700 


•0000070 




6«062&2&& 






MP AM X 


64*7692300 






MEAN Y * 


0l m • A ** 1. 4. 4 A 

25.1384610 






SUM DCV X SO.* 


17076*3060000 






SUM DKV Y SO.* 


2180.9110000 






SUM OEV XY * 


6790*7160000 






SUM 08V SO.* 


477*6049700 
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Appendix D 



1. 



COMPUTATION OF COEFFICIENT OF CORRELATION 
(Short-cut crude data method) 





(2) 


X 


Y 


INDEPENDENT 


DEPENDENT 


VARIABLE 


VARIABLE 


ULT. CUSTOMER ' 


tCVA PER 


PER POLE MILE 


LINE TOANSF. 


12 


9.3 


19 


11.1 


21 


10.9 


36 


164 


1*3 


21.1 


1*9 


20.5 


' 59 


17.8 


60 


28.1 


65 


23.6 


70 


W*.5 


105 


30.1 


120 




183 


5o.o 


81*2 


326.8 



(3) 
X2 



(1*> 

XY 



(5) 

Y2 



SQUARES & PRODUCTS 



(6) 

REGRESSION 
Yc VALUES 
COMPUTED . 



lUt 
361 

1*1*1 
1,296 
1,81*9 
2,1*01 
.3fl*8l 
3,600 
U,225 
1*,900 
11,025 
ll*,l*00 
33489 



111.6 
210.9 
228.9 
590.1* 
907.3 
1,001.5 
1,050.2 
1,686.0 
l,53U.O 
3,115.0 

3,160.5 
5,208.0 
9,150.0 



86.1*9 

123.21 
118.81 

268,96 
1*1*5.21 
1*20.25 
316.81* 
789.61 
556.96 
1,980.25 
906.01 
1,883.56 
2,500.00 



;OTALS 



means Z - 6U.77 7 - 25.1b 

CORRECTIONS* 
CENTERED 

» Corrections 

61*.77 x 8U2 - 51*,536 
6U.77 x 326.8 - 21,166.8 
25.11* x 326.8 - 8,215.75 

Hxy 



27,076 
ZTx2 



6,790.5 2, 180.1a 
Exy Zy2 



6,790.5 



11.9 
13.7 
Hi. 2 

17.9 
19.7 
21.2 
23.7 
23.9 
25.2 
26.5 
35.2 
39.0 



81,612 27,957.3 10,396.16 326.9 



51*,536 21,166.8 8.215.75 



(7) 

DEVIATIONS OF 
ACTUAL Y VALUES 
FROM REGRESSION 

OR COMPUTED Y 
VALUES 

- 2.6 

- 2.6 

- 3.3 

- 1.5 

♦ l.l* 

- .7 

- 5.9 

♦ U.2 

- 1.6 
♦18.0 
-5.1 

♦ h.h 

- 1*.8 

deviations-28.0 
deviations* 2 8.1 



J- arithmetic 
mean of X 

f a arithmetic 
mean of 1 



sum of 



V (27,076)* (2,180.1*1) 



7 59,036,781.16 



6,790.5 



7*683.51* 



♦0.8838 



Coefficient 
of Correlation 



C 



70 



Appendix D cont'd. 



2. 



co.w rArjOfj op' ft&iu&s&ioN line 



SLx2 27,076 
« .2508 



a » Y-bX - 25.Ui - (.2508)(6U.77) 

- 25. 1U - 16.2U. 

- 8.90 



Trend Lino or 



to • a+bX 

- 8. 90*. 2508 X 



Origin at X • 



Equation 



for straight line 



Ic - a*hX, where.* 



X ■ independent variable 
Yc» computed Y value or trend value of 

the dependent variable 
a - the Yc value when X-0 
b ■ the amount and direction of slope 
at the point where X-0 



Substituting the original values of X in the above equation 
Yc* a+bX, the estimated Yo values of the regression line are computed. 
For examples 

Yc - a*bX Yo - a+bX 

• 8.9 ♦ (.2508) (12) • 8.9 ♦ (.2508) (183) 

-11.9 • 5U.8 (See Column 6 



At the point where original X value." 12 the computed or regression 
value of Y • 11.9, and where original X value ■ 183 the computed regression 
value of Y » 5U.8. Connecting these two computed Y values by a straight 
line gives the regression line. 



Note that the sum of the regression or computed Yo values approx- 



imates the sum of the given Y values (See oolumn 6). Also, the sum of the 
deviations of the dots above the regression line approximates the sum of the 
deviations of the dots below the regression Sine (See column 7). Thus, the 
regression line calculated by the "method of least-squares 11 is termed the 
line of best fit. 



The coefficient of correlation has been computed and found to be 



+•8838* Using the knowledge that +1.00 is perfect positive correlation and 
-1.00 represents perfeot negative correlation, it might be interpreted that 
♦•8838 represents fairly high positive correlation between ultimate customers 
per pole mile and KVA per line transformer. However, there remains a final 
computation to test the significance of the coefficient of correlation deter- 
mined from these two series and appraise its value — whether it be real and 
significant correlation or merely due to ohanoe. 



8»i 
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Appendix D cont'd. 
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The test of significance is based upon the "null hypothesis" which 
assumes that no correlation exists between the series analysed. Chance 
values of "r" the coefficient of correlation or related measures (P) are 
calculated and evaluated in a special table of P values. Prom this table 
(found in Davies and Yoder, BUSINESS STATISTICS , pp. $86-7, or Croxton and 
Cowden, APPLIED GENERAL STATISTICS , pp. 878-9 ~ see reference sources) the 
value of P computed from the coefficient of correlation derived from any 
correlation analysis oan be compared with P values expected due to "chance" 
(chance operating 5 times out of 100) and due to "significant co-relation" 
(chance operating 1 or less time out of 100). If our computed P value dis- 
proves the "null hypothesis", then we have real correlation. 

The P table lists values for .05 or chance level, and .01 or sig- 
nificant level. Note that the P values are in inverse relationship to the 
probability of chance or the chance level. The greater the opportunity of 
chance the smaller the P value and vice versa. The table can be interpreted 
as follows i 

1) If the computed P value for a particular problem is 
lees than the .0$ value of P, then the correlation 
can be said to be due to chance. 

2) If the computed P value for a particular problem is 
greater than the .0$ value of P but less than the .01 
value, then the correlation may be termed "significant". 

3) If the computed P value for a particular problem is 
greater than the .01 value of P, then the correlation 
may be interpreted as being "highly significant". 



TEST OF SIGNIFICANCE 



Computation and Interpretation of P value for our problem t 

Symbol explanation 



l-r* 
.8838 1 



1-.8838 1 



(m-1) 

.112=21 
(2-1) 



u -78ll02Ui . (n) 

1 •lihlAAl.l. V A */ 



1-.76H021* 
.7811021 



.218697 
3.5683 
39.25 



(11) 
(11) 



r* m coefficient of 

correlation squared 

N « the number of pairs 
of items correlated 
(13 in our problem) 



«■ the number of series 
of variables correlated 
(2 in our problem) 
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From t table where columns are (m-1) and lines are (N-m), we find 
the F values for our problem in Column #1 (2-1) and Line #11 (13-2), Each 
line niufeor has two values of F, the .05 level and the ,01 level (in Davies 
and Yodor, pp. $86-58?). In Croxton and Cowden (Appendix 0-2) the .001 
level is shown in addition to the .0$ and .01 P values* 

P VALUE 

FOR 2 SERIES OF 
13 PAIRS OF ITEMS 

CHAHOfl USVKL (DAVIES AND YODER) 

#05 (chance operating $ times out of 100) « ^.81* 

or chance level of F 

•01 (chance operating 1 time out of 100) = 9.65 

or significant level of F 

Since our computed value of F ■ 39.2£ and is a value greater than 
9.6£, the F value of the .01 or significant level, chance is operating less 
than 1 time out of 100. Therefore, it must be concluded that the coefficient 
of correlation of +.8838 determined from 13 pair of items of Ultimate 
Customers per Pole Mile and HTA per Line Transformer taken from the 19*7 
T & D Study is highly significant . In o^her words, the items correlated 
definitely prove thai a real cause and effect relationship exists. The 
isicrease in KVA per line Transformer is influenced by the increase in the 
number of Ultimate Customers per Pole Mile. The F test further indicates 
that our sample of 13 pair of items, vhile perhaps a small sample, was large 
enough to prove conclusively that real correlation exists between these two 
series. 

On the other hand, if the computed value of F had been smaller than 
the .05> level of F, then it would have indicated that there was no real corre- 
lation present, and either the coefficient of correlation would have had to 
have been larger than .8838 in order to be significant or that our sample of 
13 pair of items was not large enough to prove that real correlation existed. 

The foregoing has been a brief attempt to acquaint the reader with 
soma of the statistical terns associated with correlation analysis, to illus- 
trate * method of computing the coefficient of correlation and regression 
line | to test the significance of the results, and to point out some of the 
limitations in basing one's interpretation of the degree of correlation solely 
upon the computed Talue of »r» (the coefficient of correlation). 



CROSSING POINTS 
RATE SEIfiCTlON AND COMPARISON 



H. L. Fitch 
Long Island Lighting Company 



CROSSING POINTS 



Rate Selection and Comparison 
H. L. Fitch - LILCO 



Rata design and simplification is our business. Wa are constantly reviewing 
our structure searching for improved and reasonable rates, not only to re- 
duce our norl; load and expense, but also for clarity and understanding by 
our consumers, LILCO is no exception. 

I would like to refer to the N. Y. S. Public Service Commission's memorandum 
adopted January 31, 1955 quote - "—After thorough consideration of the 
various methods of bringing about the desired rate uniformity and tariff 
simplification, it is the judgement of the Commission that, with the two ex- 
ceptions of service from underground lines and seasonal service, there should 
be one tariff schedule for the entire territory for each of the major cate- 
gories of service, residential, general or commercial, and industrial." 

Since that time our department has been endeavoring to attain this goal* 
Combining or cancelling rates, because of the severe effect on customer's 
bills, must be done only after a complete review of each account affected 
and with steps of justification. 

Faced with this problem we have for the past five years spent endless days 
of clerical computations examining our conflicting rate with the ultimate 
goal of eliminating it from the schedule. Gradually through careful rate 
selection and reductions, utilising fully our IBM 1620 digital computer, we 
are &m the door step of attaining complete rate uniformity and tariff 
simplification. 

This program written in FORMAT FORTRAN for card input into an IBM 1620 
digital computer, will enable you to compare rates by producing crossing 
points end bill tables, if desired, in a matter of minutes. 

Exhibit I (two pages) is a self-explanatory flow diagram. 

Exhibit II (three pages) is the program written in FORMAT FORTRAN 

Exhibit 111 is a sample of the input data card and a glossary of terms and 
switches used. 

Exhibit XV Is a sample of the header cards. 

Exhibit V is a t dip Is of the output data generated by the program. 

Exhibit VX it in example of printed output data In steps of 50 KW Demand 

Exhibit VII is a Ilka example of printed output data in steps of i KW Demand 

Exhibit VIII is a sample of a bill table generated by the program if desired. 

This program uses as Input data, a single card designed by you containing a 

demand punch and a tima punch* Together with the utilisation of switches g ;j 

this offers unlimited flexibitity as to starting point and output desired* 



- 2 - 



Crossing Points (cont'd) 

Naturally tha complexity of the rates to be compared will determine the in- 
put scope. In explaining our Crossing Points program to you, allow me to 
refer to the specific examples exhibited* Please feel free to ask any ques- 
tions. 

Program Utilization 

With reference to exhibit II, this program was initiated to compare S.C. No 
2 with S.C. No. 4 by calculating tha difference in the billing of a specific 
demand in steps of hours use. Incorporating switch 1 for Primary or Secon- 
dary service, switch 2 to increment the demand after tha 730 hour cycle and 
switch 3 as an option to obtain a bill table, we were able to produce 
Crossing points to graphically show the advantages of our rate 2 vs rate 4. 
Actually we are comparing four rates: 

Rate 2 secondary vs. Rate 4 scondary 

Rate 2 primary vs. Rate 4 primary 

A complete cycle of 730 hours (avg. hours in avg. month), selecting each 
time the proper rate formula ( 9 - rate 2, 4 - rate 4), and generating out* 
put cards on either Crossing Points or bill table, requires approximately 
eight minute 8 machine time. A review of both Exhibits I (flow diagram) 
together with Exhibit II (the program) will clearly detail the sequence of 
a single cycle. 

The output data, printed examples (VI, VII, VIII) was generated from one . 
input card (Exhibit III), manually operating the switches at will, in 
approximately 40 minutes. 

Let us examine this output. - (Blackboard Exhibit) 
Conclusion : 

This demonstration, however brief, indicates the advantage of 1620 digital 
computer application in rate comparison or rate selection work. Possibly 
some of you are presently confronted with this problem. Although this 
program was designed to satisfy our demand, only slight modification would 
be necessary to solve innumerable comparison problems. The general FORMAT 
is here for general use by any member. 
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C CROSSING POINTS S.C.N0.2 YS S.C.N0.4 EFF 6/1/64 H.L. FITCH 3/64 

C SWITCH 1 ON FOR PRIMARY, OFF FOR SECONDARY 

C SWITCH 2 ON FOR INCREMENTS OF 50KW, OFF FOR INCREMENTS OF 1KW 
C SWITCH 3 ON - BILL TABLE, OFF BY-PASS 

DIMENSION D|FF( 2} 

D|FF^ 1)«0.0 

D|FF(2)-0.0 

IF'SENSE SWITCH 1)906,90? 

906 PUNCH 921 

_ _ _6Q_IP 904 _ . _ 

907 PUNCH 920 
904 PUNCH 1 

PUNCH 4 
READ 3»D,T 
104 C*0.0 

_GR«0.0 _ _ 

PR-0.0 
C«D*T 

IF(SENSE SWITCH 1)5,6 

6 1F(D-"10Q.)7,7,8 

7 IF(C-D*30 J9 P 9J0 

I PR- 1.800*0 

~" ~ "G"0~f5'"500 ~ "~" 
10 IF(C-D*120.)11,11,12 

II PR«0.851*D+0.0233*C 
620 IF^PR-1 •800*0)9,9,14 

14 PR-PR 

GO TO 500 

' ~""T2'TR'C-7Z000.715" I T5",T6 " 

15 PR-2.027*D+0 9 0l35*C 
GO TO 620 

16 PR-2. 027*0+0. 0085*C+360.000 , 
GO TO 620 

8 IF(C-D*30.)18,18.19 

T8~TO«r.'800*'D" ~ " " "~ • ■ " - ' ' ' 

GO TO 500 
19 " l'F('CH)*T20.)20 t 20 f 21 
20 PR«0.80l*D+0.0233*C+5.000 

27 I Ft PR- 1 ,800*D)18,TB,22 
22 PR*PR 

M T5 W 



21 IFfC-72000.) 23,23.24 
24 IFrD-200j2S,K,26 
23 PR-1 .977*0+0. Ol35*C+5. 000 

GO TO 27 
?i„PR»j>9^ 

26 IFfC-360.*D)23.23,29 
29 Pft«3. 777*0+0. 0085*C+5. 000 
GO TO 27 

500 1FCC-90J501 ,501,502 

501 GR-1.500*D+0.039*C-2.588 
TJO TU TOOCT ~ ~ 



502 IF C-210.)503, 503,504 

503 GR-1. 500*0+0. 03 1*C-1. 868" 
GO TO 1000 ^/ i/ 



504 IF(C-1 500.) 505, 5^5,506 

505 GR-1 .500*0+0, 025*C-0. 608 



GO TO 1000 

506 IF;c-1 2000. )507, 507.508 

507 GR=1 .500*0+0.019*0+8.392 
GO TO 1000 

508 IF(C-36000.)509, 509,512 

509 GR=1 .500*D+0.0l3*C+30.392 
GO TO 1000 

51?. IF(D-100.)513, 513,514 

513 GR-1 .500*0+0. 008*C+26n. 39 2 
GO TO 1000 

514 IF' C-360.*D)509, 509,515 
^15 GR-3. 300*0+0. 003*C+8o. 392 

GO TO 1000 

5 if:d-ioo.)6oo.6oo,6oi 

600 IF'C-D*30. 5602,602,603 

602 PR= 1 .800*0 
GO TO 700 

603 IF'C-D*1 20.)604.604,605 

604 .P1T-0.55T*iy+0.n233*r"" 

609 IF' PR-1 .800*0)602,602,606 

606 PR=PR 

GO TO 700 

605 IF'C-72OO0.)607,607,608 

607 PR=-1 .727*0+0.0135*0 
GO TO 609 ~ 

603 PR=1 ,727*D+0. 0085*C+36n.OOO 
GO TO 609 

601 IF C-D*0.)611,611,612 
611 PR=1.800*D 

GO TO 700 
~6T"2 T r " C -D >H 10 776 T J,B1 j;ST4" ~ 

613 PR=0.50l*D+0. 0233*0+5.000 

610 IWPR-1 .800*0)611,611,615 

615 PR-PR 

GO TO 700 

614 IF;C-72000.)616. 616.617 
~XT7"lFnJ-2U07T6r87err,BT9 

616 PR=1 .677*D+O.Ol35*C+5.000 
GO TO 610 

61°. PR=1 .677*0+0.0085*0+365.000 

GO TO 610 
619 |F;C-360.*0)616.616,622 
" . 477*0+0". 00*3*C"+5.0UO ~ 

GO TO 610 

700 IF D-100.)701, 701,702 

701 IF.C-90.)703,703.704 

703 GR=T. 350*0+0. 039*C+4. 91 2 

GO TO 1000 
704" rr^-ZTO J705,70^.70B 

705 GR*1 .350*D+0. 031*0+5.632 
GO TO 1000 

706 IF'C-150O.)7O7.707,7O8 

707 GR=1 .350*0+0.025*0+6.892 
GO TO 1000 

70B TFTC-T 2000.1 709 ,709. 71^ 

709 GR=1 .350*D+0. 019*0+15.892 
GO TO 1000 

710 IF(C-36000.)711.711.714 

711 GR=1 .350*0+0.013*0+87.892 
GO TO 1000 

714 (SR^ .T5^*D+O.W*C+2677892" 
GO TO 1000 

702 IF'C-90.)803,803,804 

803 GR«1 .200*0+0.039*0+19.912 
GO TO 1000 

804 IF,C-210.)805,805,806 



805 



GR=1 .200*D+0.O31*C+20 .632 



806 
807 



GO TO 1000 
IF(C-1 500.) 807 .807.808 
GR=1 .200*0+0. 025*C+2l .892 
GO TO 1000 
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808 IF(C-1 2000.) 809, 809 ,810 

809 GR=1. 200*0+0. 019*C+30. 892 
GO TO 1000 

810 IF(C-36000.)81 1,811. 814 

811 GR=1 .200*D+0. 013*C+102.892 
GO TO 1000 

81 *f IF(D-00.)815,815.816 

815 GR=1. 200*0+0. 008*C+282. 892 
GO TO 1000 

816 IF(C-360.*D)811 1 811,817 

817 GR-3. 000*0+0. 008*0+102.892 
1000 D|FF'1)=GR-PR 

IF'SENSE SWITCH 3)2006,1500 
1 500 ' I FTdTFF * 1 ) ) 2000 ,2000 , 2001 

2000 IF DIFF 2)) 2005, 2005, 2006 
2006 PUNCH 101 # D,T,,GR.PR,DIFF 1) 

IF(SENSE SWITCH 3)903,2500 
2500 CC»D* T-1 .0) 
TT=T-1 .0 

PUNCH 5005,D,TT,CC,DIFF'2) 
2005 DIFF(2)=DIFF 1) 
D|FF(1)«0.0 
GO TO 903 

2001 IF(DIFF2))5000, 2005,2005 
5000 PUNCH 101 ,D,T,C,GR,PR,D|FF 1) 

GO TO 2500 
903 T-T+1.0 

I F v T-730 . ) 1 Olfr , 1 0if . 1 05 
105 IFvSENSE SWITCH 2)41 ,42 

42 D-0+1 .0 
GO TO 43 

4T D-D+50.0 

43 T=1.0 

IFCSENSE SWITCH 3)104,1501 
1501 DIFFll)-0.0 
D|FF(2)-0.0 
GO TO 104 

1 F0RMATC41H KW HRS KWH S.C.N0.2 S.C.N0.4 ,10HDIFFERENCE) 
101 FORMAT(F5.0 f F5.0.F8.0,Fl0.2 f F10.2 f F8.2) 
3 FGRMAT(F5.0,F5.0) 

920 FORMAT! 18H SECONDARY SERVICE) 

921 FORMAT (16H PRIMARY SERVICE) 




rORMAT(F5.0 t F5.0,P8.0 f 20XF8.2) 
ENO 



8 9 



Consumption 
TJrne. (hc*.r$) 
Centra/ Ze.Stnk.t~ 

ton 

Time dtcftmtfi+ed by one hour* 



'Lncr*.nri€n+& c£ So Kh/ 



>> : c ^ a a o o o c o o c o c g g o o a o c 3 o c o o g o o o n o o o o c a o j o o o o a o o o o o o c o o i) a 8 o • 8 o o a c o c o u n a j/ u a j u o a a a 

i . . < ; ■ i « mi .> .i m ,j w •> !* t» a n h 3 a n v * ,t j» : J u w w * J' a * « «i <; 4. - m j •■o >i k m * * v u m te »i b o mu* »j m h » it n r.. ;« n * i. >« » * 

1 1 m 1 1 1 1 ii » 1 1 1 1 1 : m i n h i i ; » ; ! i u i ; n n n 1 1 1 1 1 m 1 1 1 n 1 1 1 1 ii 1 1 1 n ii 1 1 1 1 n m i n 

< : 2 f ? 2 2 2 2 2 2 L' 2 2 2 2 2 2 2 I 2 2 ? 2 2 7 7 2 2 ? 2 2 ? ? 2 2 i 2 2 i 2 7. 2 2 1 1 2 2 2 2 2 2 2 2 2 ? 2 2 2 2 2 2 2 2 2 2 2 2 ? 2 2 2 2 2 2 2 2 2 2 

3 2 3 ^ 3 3 3 3 3 i 3 3 3 J 3 3 3 3 3 3 3 3 3 3 J 3 3 3 3 3 3 i 3 : 3 5 3 3 3 » 3 2 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 i 

4 4 I ! 4 4 4 4 4 4 4 * 4 4 4 4 4 4 4 4 * J 1 4 J 4 4 4 i 4 * 4 4 4 4 4 4 4 4 4 4 4 < 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 

5 5 5 5 S 5 < 3 b 5 5 •> b r i 5 * 5 *> 5 5 5 5 5 5 5 5 6 5 b f> 5 5 5 "i 5 5 i 5 5 5 b 5 5 a 5 5 4 5 " 5 5 5 5 5 5 5 5 5 5 !» 5 5 5 5 5 5 5 5 S 5 5 5 5 5 5 5 3 5 5 

Cr o6SSK8S6&666U65(;uS>D8666&fi8666b6bb6S66o6S66&6S6«5(!8r» 666i»&S666tt666SSS666&C86o , 
' 7 7 7 7 7 / 7 7 / 7 /? 1 7 7 ? 7 1 7 7 7 J 7 7 < 7 7 7 7 7 7 W 7 / 7 7 7 7 7 / 7 7 7 7 7 7 7 7 7 7 7 7 / 7 ' 7 7 7 7 7 7 7 M 7 7 7 7 7 7 7 7 7 U 7 7 7 

i 

HI?, 118 8 8&S88888S?o§3c »8R t' 3 3 8 « P 5 5 8 i I 8 8 3 3 3 8 3 8 8 8 ! 8 I ! 8 8 8 8 8 8 9 8 ? < P c o o n 8 M 5 C 3 3 « 8 8 j 
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"SECONDARY 5ERVICE 
KW HRS KV/H 



S.C.NO.2 S.C.N0.4 DIFFERENCE 



50. 



13. 

717 



650. 
600. 
1300. 



90.6k 



90.00 



.64 



50. 
100. 



■w; — r4r 

100. 373. 

100. 377. 37700. 

150. 13. 1950. 

Tso^ Tl. 1800. 

150. 117. 17550. 

150. lit 17W6. 



-7£c" 
1.3? 

37300. 712.79 713.00 -.20 



181.89 180.00 



270.44 270. CO 



.35 
.44 



533.5k 534.06 



-2.40 



1.59 



200. 14. 



2300. 

2600. 
2100Q. 
20300. 

3500. 



361.59 360.00 



200. 13. 

200. 10^ 



653.39 654.50 



-2.20 
-1.1C 



200. 104. 
250. 15. 
250C T47 
250^ 



454.64 450.00 4.64 



93. 24500. 



2S0. 97. 24250. 
1 ^. 4500. 



773.89 776.10 
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543.89 
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50C . 



300. 

350. 15 

14 
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3.™ 



350. 



14. 4200. 
93. 27^00. 
92. 27600. 



093.09 



395.37 



-1 .755" 



250. 633.14 630.00 3.14 
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SECONDARY SERVICE 
KW HRS KY/M 



S.C.N0.2 S.C.NO.if DIFFERENCE 
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351. 

352. 
352. 

352. 



-*53- 
353. 
354. 
354. 

18: 

-35f»- 
355. 
355. 
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0$. 30853 
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4. 
9. 
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88. 
15. 
14. 



14. 
89. 



4914. 

308G< 
-5230^. 

3T32S. 

30976. 

5295. 
49*1-2. 

-3U-17. 

3U'64. 

5310. 

4956. 
31506. 
31152. 

4970. 
31595. 



634.22 
1012.99 

1015.65 
638,49 

640.28 

1020.97 
. 6 42- 6 

1023.62 



631 .00 

1014.01 

&33-6a- 
■1016.89 

635.40 
.1 019*7^- 

637.20 
1022.64 
- 63^0£L. 
1025.51 



■98.13 
3.12 

-3.54 
-1.02 

2.59 

3ai 
-3.57 
-1.23 

2.38 

-1:8 

.1.17 
3.03 
-3.64 

-1.67 
1.97 

- --3-0& 
-3.67 
-1.39 
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SECONDARY SERVICE 
KW HRS KWH 



S.C.NO.2 S.C.NO.4 DIFFERENCE 



38. 

8; 

41. 
42. 

43. 
44. 
44S* 
if6. 

^7. 

40. 

49. 
50. 
51. 
52. 

53. 
54. 
55. 
56. 
57. 
53. 

59. 
60. 
61. 
62. 
f63. 
64. 

65. 
66. 



48300. 
48450. 
49000. 
49350. 
49700. 
50050. 
50400. 
50750. 
51100. 
51450. 
51300. 
52150. 
52500. 
52850. 
53200. 
53550. 
53900. 
54250. 
54600. 

rl.nrr, 
5*vyyv • 

55300. 

55650. 

56000. 

56350. 

56700. 

57^50. 
57400. 
57750. 

■ r O 1 r> ^ 
3^1 . 



1233.2? 



1242.39 
1246. qi 

1251.49 
1256.04 
1260.59 
X2&S.14 
1269.69 
1274.24 
1278.79 
1233'. 34 
1237.3? 
1292.44 
1296.99 

1301.54 
I306.09 

1310.64 

1315.19 
13*9.74 
1324.29 
1323.34 
1333.39 
1337.94 
1342.49 
■4347.04 
1351.59 
1356.14 
I36C. 69 



1349.00 - 
1353.72 - 
358.45 - 
363.17 - 
367.90 - 
372.62 - 
377.35 - 
332.07-^ 
336.80 - 
391.52 - 
396.25 - 
400.97 - 
405.70 - 

415.15 - 

419-37 - 
424.60 - 
429.32 - 
434.05 - 
4433.77 - 
443.50 - 
443.22 - 
452.95 - 
457.67 - 
462.40 - 
4&7 UZ - 
471.85 - 
476.57 - 
431.30 - 



S.J 
6.05 
6.23 
6.40 
6.58 
6.75 
6.93 
7.10 
7.28 
7.45 
7.63 
7.30 
7.9* 
3. 15 

3.33 

3.50 

3.68 

3.85 

9-03- 

9.20 

9.38 
9.55 
9.73 
9.90 
20.03 

20.25 
20.43 
20.60 
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ELECTRIC WATER HEATING 



INCREMENTAL APPLIANCE USAGE 



K. W. Brady- 
Long Island Lighting Company 



ELECTRIC WATER HEATING 
Incremental Appliance Usage 
K. W. Brady - LILCO 



This program is written in FORMAT FORTRAN for card input into 
an IBM 1620 digital computer. 

The initial phase of this program began with a mail survey of 
our electric residential customers. LILC.O has better than 600,000 such cus- 
tomers; all were not surveyed. Some 250,000 of these accounts were selected; 
I believe this was accomplished through the use of random numbers. Included 
in this survey were all our electric water heating customers, approximately 
29,000. We were going to attempt to determine the usage of an electric water 
heater as a sole major appliance as well as in conjunction with various other 
major appliances. 

The program was scheduled to run for one year at which time 
results would be tabulated to determine the necessary as well as the re- 
liability of the data. This final phase has not been completed as yet, how- 
ever, the 1620 section has, and that is what I would like to demonstrate to 
you today. 

On page one (1) of the exhibits there is a copy of the original 
survey card which was mailed to the customer. Many departments in the com- 
pany had their fingers in this survey so that there is some information on the 
card which is superfluous. This is the reason we designed a "condensed card", 
also shown on page 1, which contained information pertinent to the water 
heating study. This card was key punched directly from the original survey 
card and verified. This deck of condensed cards, one for each customer who 
replied to the survey, then became our master control deck. Incidentally, 
with regard to returns we received approximately a 52% return from the water 
heating customers. 

This master deck was then broken down by types of major ap- 
pliances in conjunction with electric water heating to determine the popu- 
lation of each appliance group. Where it was felt that the size of the group 
was too small to give significant answers, the group was dropped and put into 
an overall non- conforming group. Page 2 shows the various appliance groups 
we retained as well as the code;gtven to each group. You will note the groups 
are split between yes and no. We have some honest customers, who, though re- 
ceiving the benefit of the water heating reduction in our electric rate, in- 
dicated that they no longer had an electric water heater. 

The next step in the program was to match detail billing cards 
with this master deck by appliance groups. Page 3 of the exhibits shows a 
flow diagram which illustrates the method used for this match. LILCO has 
both monthly and bimonthly billing so it was necessary to run four passes 
through a collator to obtain the proper match. These passes were: 



1. Yes group vs. 

2. Yes group vs. 

3. No group vs. 

4. No group vs. 



30 day billing. 
60 day billing. 
30 day billing. 
60 day billing. 



When all the detail bill cards were collated with the master 
deck, those that matched had their proper appliance code number punched into 
them; those that did not match had the non- conforming group code punched into 
them. This gave us a code number for ail of the customers who replied to 
the survey. For those who did not reply , a code, (30), was given and they 
were handled as a separate item in the program. 

The detail bill cards containing the code number were then . 
Sorted by appliance codes into a series of predetermined frequency steps. 
These steps were actually an assumed class interval of 50KWH. We merely 
counted the number of items for each class interval and produced a summary 
card for the interval or frequency step. We set up 51 steps; an illustration 
of this is on pages 12 and 13 in the rear of the exhibits. 

Getting back to the flow diagram, once the detail bill cards 
were summarized into frequency steps, they were retained in account number 
order as we wanted to obtain a print-out of each customer's account for the 
test year. The frequency decks, 14 for the 'yes* group (the flow diagram 
shows 13, one was added at the last munute), 10 for the 'no* group, and 1 
each for the non* conforming groups were then processed on the 1620. These 
decks of cards were white; the two non* conforming groups were merged with 
their respective yes or no group and an overall summary group produced (for 
yes and no). These groups were coded 10 for 'yes' and 20 for 'no'; the color 
of the cards, pink. We now had detail by appliance groups as well as sum- 
mary, both 'yes'iand 'no 1 for all the customers who replied to the survey. 

A pink deck was also produced for the no-reply customers in 
the same frequency steps. We had ail the detail bill cards for our electric 
water heating rate, so it was decided to include the non-replies as a single 
group. The three pink decks, summary decks , were then merged into a single 
overall summary deck (blue) . This deck gave us a check on the number of 
customers billed for each month to make certain we had all of the detail 
cards. It would also tell us if we hac* to many. 

The next phase was the 1620 program. I am not a statistician 
by any means, so that in producing the program I worked with the statistician 
in the department. He supplied the formulae necessary to obtain the answers, 
and he incidentally is the one who is presently analysing the results. My 
idle function was to produce a machine method which would provide answers, 
thereby relieving extended clerical calculations. 

The statistician set down the formulae in statistical form, 
which 1 converted to my own language. These are shown on page 4 of the ex- 
hibits; one look at some of the symbols and you will understand why I used 
my own language. 

Page 5 contains a flow diagram of the program, 6 and 7 a 
p tint- out and 8 a glossary of the terms used in the program. I believe they 
ire self-explanatory and suffice it to say the program utilizing the fre- 
quency distribution data set up in a class interval of 50KWH, an assumed mean 
#f 225, provides the arithmetic mean, standard deviation, standard error of 
mean, and co-efficient of variation for the various appliance groupings. 

¥.3 



Page 8-A illustrates a sample output of the program. Column I Is the fre- 
quency steps (class interval); column 2, the deviation from the assumed mean 
(225); column 3, the deviation squared; column 4, the frequency (number 
of items by step); column 5, the frequency times the deviation and column 
6 the frequency times the deviation squared. Columns 5 and 6 are summarized 
by the program as they are used in the formula calculations. 

Page 9 is an illustration of the four header cards used in the 
program. A set of these cards is necessary before each code being processed 
by the computer. 

Pages 10 and 11 are card layout forms illustrating the fields used 
in the input data cards and the output data cards. 

I am presenting this program to you to demonstrate one of the 
many ways rate men can make use of the 1620 computer. This program was 
originally intended to be a one-shot set-up, however, with certain 
modifications, I believe it could be written in a way to be of general use 
to all of us. 
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PLEASE ANSWER QUESTIONS BELOW BY MAKING A CHECK IN THE BOX AND FILLING IN NUMBERS ON THE LINFS 

YOU CAM HELP US KITCHEN APPLIANCES HOME HEATINO -CENTRAL SYSTEM SUPPLEMENTARY HEATERS AIR CONDITIONIN G 

SERVE YOU BETTER I RANGE FUEL »Q uico gas ro window units, total 

60Q BOTTLEO GAS 7|Q CENTRAL, FIECTRIC 

SlQ OIL SEPARATE Dt HUMIDIFIER 

62[~"| ELECTRIC TsQ] ATTIC FAN 




KITCHEN APPLIANCES 
JANJL 

»Q electric 

4oQ LILCO GAS 

41 bottleo ^ 

REFRIGERATOR 
42Q] ELECTRIC 

LILCO GAS 
44Q OTHER 



HOME HEATING -CENTRAL SYSTEM 
FUEl 

80Q LILCO GAS 
SlQ] BOTTLED GAS 
S2Q OIL 
5.Q TOTAL ELECTRIC 
54 1~) NONE 



TYPE SYSTEM 



APART- 
MENT 



NO.m 
. FAMILY 



4gf I SEPARATE FREEZER 
4«| I DISHWASHER 

LAUNDRY APPLIANCES 
47Q CLOTHES WASHER 

CL6TH65 prt^R, 
**Q «as 

4«Q ELECTRIC 



9sQ STEAM 

hot water 
6t[~1 warm air 

M IZj OTHER 



DOMESTIC WATER HEATING 
ga| I FROM HEATING SYSTEM 

SEPARATE WATER HEATING TANK 

OIL 

69Q LILCO GAS 
««Q BOTTLED GAS 
€7Q ELECTRIC 
••Q COAL 
«»T~I NOME 



TELEV ISION 

74 ■ BLACK B WHITE 

75 • COLOR 

WATER PUMPS 



7«| I DRINKING bJPPLV 

77 [Z] LAWN WATE, »" ,C 
T*\~] OTHER 



1^—1 NOME "l—l ROUND 



WAS YOUR HOME BUILT 



BEFORE 



ItSS 



WHAT APPLIANCE DO YOU PLAN 
TO ADD TO YOUR HOME 7 



THANK YOU FOR YOUR HELP. 



PL.EA8C DO NOT BENO OR MUTILATE THI8 CARD 



33T1 

^—1 OR AFTER . „ „ „ 

" -- ■ ■ — FC-5964.1 

imimitoiiiiDHBiiD » »»a van anv aa son «» m js» 37 xm 4«fl «« m« 4*47 a« so si s2 53 S4555»57wsiw«8jhs4«58S67s«8S70 7i 72 73 74 75 w 77 71 79 bo 

BWNIBIOB-0 



t ] 



S 4 I 



I 7 t| 

I 11 1 H 11 



tin 

s 



(0 



MMMMooHiejo 

t * II I1 14 H 
111111 



8II1JI 1333 I33J333J33333333333333333333 333 



44 44* 



11! 15! S9SI 



2! 



It p 



444 4444 4^4 



771771 



114 1 



• 7 I 



««. vz w trfE 



3i* 



ojo 1 1 e « S I • I 

Njl7 IB W J»:i:E»M»»;i7 » 2* M II MUM 35 * 37 »» 40 41 41 4C 44 4S 44 47 41 44 M St US1M9SH 57 »*9«Mtlt2t3t4tS«t7Mtt7t 71 72 71 74 7S R) 77 74 7» M 
1 11 11 1 111 11111111 11111 1111111111111111111111111111111111111111111 



2 1 2 2 ^2 Z2 2t 2 2 2 2 2 2 2 2 2 2 2 2 2 22 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 

333 333333333333333333333333333 33333 

4 4 !4 4 4 4 4 4 4 4 4 4 4 4 4 4 444 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 



7 7 7 7 T* 7 7 7 7 7 7 7 7 7 7 7l7 7 



7 777777 7 7 



IIISSiSS 5 5 5 S S 5 5 5 5 5 5 5 5 15 5 5 5 5 5 5 S 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 

I 1 I ; : 

|6 6 6)6 6 6j6 1 1 1 6)1 • (j* * * • M 1 ■ I II 186868668 6 6 6 6 6 6 6 6 6 6 6 6 66 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 8 6 6 6 6 6 6 1 1 6 6 6 6 

7 777777777777777777777777777777777777777777 



• 1 1 1 1 1 1 1 1 1 6,8 I tjl 6 1 6 6 III I I 1 1 1 1 1 1 1 1 1 1 1 1 1 8 8 8 88 6 8 8 8 8 8 6 8 8 8 6 6 8 8 8 8 8 6 8 6 8 8 III 8 6 68 8 8 8 68 8 

|l I t|l I 9 8 9 8 9 9ft I Sll I S I 8 slliljlll 1 19 sis 9 9 9 9 9 9 9 9 s|s|9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 1 9 9 9 9 

juiiu u m|« « i» Mm an a|a|Ml&|s n m aw » 12 u m n a ti a n 4ikt to u « « « 4i 4* « s* si u u m » a ti a ^ 



10! 



SAMPLING PROGRAM - APPLIANCE GROUP CODE 



From Survey of Rate Code 38 



"Yea" Group 



"No" Group 



Notes: 



Appliance Group i 



Base Load & Vteter Htg. 

Water Htg. & Range 

Wdter Htg. & Dryer 

Water Htg. & Freezer 

Water Htg. & Air Cond. 

Water Htg. Range & Dryer 

Water Htg. Range & Freezer 

Water Htg. Range & Air Cond. 

Water Htg. Dryer & Freezer 

Water Htg. Range, Dryer, Air Cond. 

Water Htg. Range, Dryer, Freezer, Air Cond 

Water Htg. Range, Dryer, Freezer 

Non - Conforming Group 

Summary "Yes Group" 



Base Load 

Base Load & Range 

Base Load & Dryer 

Base Load & Freezer 

Base Load & Air Cond. 

Base Load, Range & Air Cond. 

Base Load, Ratage, Dryer & Air Cond. 

Base Load, Range, Dryer, Freezer, Air Cond, 

Non - Conforming Group 

Summary. "No Group" 



Residual Group (Non - Survey) 
Total - All Groups 



1. One set for Monthly Billing 
One set for Bimonthly Billing 



1 02 
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260000800009!?$ 

LOAD DATA / 
TOP 

ENTFR SOURCE PROGRAM, PUSH START 

C C SAMPLING PROGRAM - DETERMINATION OF INCREMENTAL. APPL1 AN*.E 
CONSUMPTIONS BY K. BRADY AND J.O C.OUAO ; SEPT EMC E ' }%2 
DIMENSION STEP(50),D(50),DS(50),F(50),FD(50),FOS(50V 

1 TS=0.0 
TD=0.0 
TDS=0.0 
TF=0.0 
TFD=0.0 
TFDS=0.0 
AV=0.0 
SD=0.0 
SEM-0.0 
VAR=0.0 

10 FORMAT (F5.0) 
READ 10, CODE 
20 FORMAT ( 12) 

READ 20, MAX 
30 FORMAT (F5.0) 

READ 30, :- 1 
40 FORMAT (F5.0) 
READ 40, ASM 
50 FORMAT (F7.0,F1 1 . , F1 1 . 0, F 1 1 . 0) 

DO 2 K=1,MAX 

READ 50,STEP(*O ,D(K) ,DS(K) ,F(K) 

2 TF=F(K)-;-TF 
FD(MAX>=0.0 
DO 3 K=1 ,MAX 
FD(K)=D(K)*F(K) 

3 TFD=FD ( K) -• TFD 
FDS(MAX)=0.0 
DO 4 K=1 ,MAX 
FDS(lO = DS(K)*F(K) 

if TFDS=FDS(K)+TFDS 
60 FORMAT (6H CODE F5.0) 

PUNCH 60, CODE 
70 FORMAT (1 6H CLASS INTERVAL F5.0) 

PUNCH 70, CI 
80 FORMAT (14H ASSUMED MEAN F5.0) 

PUNCH 80, ASM 
90 FORMAT (F7.0,F11 .0,F1 1 .0,F1 1 .0,F1 1 ,0,F1 1 .0) 
DO 5 K«=1 ,MAX 
5 PUNCH 90,STEP(K),D(K),DS(K),F(K),FD(K),FDS(K) 
PUNCH 90,TS,TD,TDS,TF,TFD,TFDS 
70196 AB-0.0 
10220 AC»0.0 

AB«TFD/TF 
AC*AB*CI 

av=asm-i-a£ 
100 format (6h mean f10.3) 

PUNCH 100,AV 

Z=0.0 

W=0.0 

Y=0.0 

R=0.0 

Z«TFDS/TF 
W=TFD/TF*TFD/TF 

Y=Z-W 
R=SORT(Y) 
SD=C I "R 



T58300 
08300 
08300 
08324 
08348 
08372 
08396 
08420 
08444 
08468 
08492 
08516 
08540 
08562 
08586 
08608 
08632 
08654 
08678 
08700 
08724 
08762 
§§774 
08930 
0^6 
OS ,4 
09086 
09194 
09290 
09338 
09350 
09458 
09554 
09596 
O9620 
O9682 
09706 
09764 
09788 
O9836 
09848 
TO1 12 
;0196 
0220 
T0244 
T0280 
T0316 
T0352 
T0394 
10^18 
TC 2 
T04b6 
T0490 

T0610 

T0646 
J0670 



10 /Ub 

T0776 
T0800 
1Q82'f 

Tom*8 

10^62 
J 6 

1111k 

Tn4o 
Tii^o 



200 FORMAT (20H STANDARD DEVIATION F8 3) 
PUNCH 200, SD 
V=0 . 
V=SORT(TF) 
SEM=SD/V 

300 FORMAT ( 2^ -! STANDARD ERROR OF MEAN F8 3 ) 

PUNCH 300, SEM 

VAR=100.*SD/AV 
kOO FORMAT ( 26 H OOEFF I .*! TENT OF VARIATION F8 3) 

PUNCH 400, VAR ° 

GO TO 1 

END 



PROG SI/ 1 ONFOR SYMBOL TARLE , PUS ] START 
:>\.'V 1 OFF fO ICMORE SUoR 01 IT I NE3 , PUSH START 
1620 FORTRAN SR'RR. 0/30,61 

PROCESS I VG "OMPLETE26b00080000£?!^60000800009rs 
LOAD DATA260000800009 : U; " J 
LOAD AT A 
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Standard Deviation 
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Coefficient of Variation 
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MEAN 944.676 
♦STANDARD DEVIATION 456.936 
♦STANDARD ERROR OF MEAN 13.696 
♦COEFFICIENT OF VARIATION 48.369 
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May the existing printing plate be scrapped? YES Q NO □ 
If (YES), indicate authority for scrapping: 



AUTHORITY 



DATE 



CORNERS TO IE CUT 
RONE □ 
UPPER n □ 

LEFT HUT 

10WER □ □ 

HUiAII LIVER LEFT CIRRCR 
CRT II <IT IECIMEMEI FIR 
Mill It IE IIEI Will III 14 
CHI PIICI HI MCRIREI WITH 
SlIIUI IIFE FEEII. (C-J II 
HCIWIEHEI.) 



INTERPRETATION 



□ 



„,, i — I riiiTiii 
NONE I I piiciei 

ic PM. IRT. | — | ll-TI-IICI | — I 
^3 « PIIITEIi I I PIMTERt I I 

60 iiSSu 552 □ 557 □ 

■ILL FEES lirei ti iicr 

END PRINTINSSTai-D snt-O 

TYPEWRITER tl«l r— I 

SMCIII ti iicrLJ 



SDC*OCpSD 

* ****** itMBB I 



COMPLETE THESE t3£ 
SECTIONS WHEN APPLICA BLE 

F98 Mil JENiW tUST, 



REOUIIEMENTS 



SCORING □ 
PIERWIEIINCD 



OF EACH FEATURE SPECIFIED AROVE. 

STBlD P»lQ CINTINHISD 

IF CU1 IS TO IE PtllTH > aM( [— | 

TIHILE □ 



01 I0TI illES. IIIIUTE 
STYLE. 



( — > c4^ 



4 

~4 



STl 

tm mm iriii r 

If R HM M I 



POIMTEISEOe 1 I) DETERMINE SHORT CARD COLUMN P4UMIERS SY REFERRING TO GUIDE AND COLUMNS 2) CUT OUT THE STRIP OF COLUMN NUMRERS. 

SHORT CARD \ PRINTED RELOW. USARLE COLUMN RANGE IS ESTAILISHED IY THE CAPACITY LOCATION 3) PASTE THE STRIP ON THE LAYOUT FORM IN DESIRED LOCATION FOR THE SHORT CARD. 
LAYOUTS J ON EACH SIDE OP GUIDE. E. O., ON A 51-COLUMN CARD. USUAILE COLUMNS ARE 15-45. 4) RULE ENDS OF SHORT CARD 2 1/2 COLUMNS REYOND THE STRIP OF COLUMN NUMRERS. 

UsItaU, UsIsTlsslsaUil^UTUsl^aU. I39|37|35|33|3i|^|27| 2 5|s3| I . SHORT CARD COIUMN GUIDE 

|*6|64|63|60|5B|s6|s«|5z|50|<B|46|44|j2|<0|3e|36|34|3z|3C]|3B|26|2«|22| ^ CARD CAPACITY (COLUMNS) 



S) DETERMINE MARK SENSE POSITIONS, IF ANY, RY ASSOCIATING STRIP NUMRERS WITH CARD 
LAYOUT POSITIONS. E. G., ON A 51- COLUMN CARD. M.S. POSITIONS »-21 ARE USARLE. 

|23|2S|27|Z9| 31 |33|3S|37|39| 41 UsUsUtUsI 51 |s3|Ss|s7|s*| 61 |&3|ts| I 
— ^|a2|2«|26|2B|30|32|34|36|3B|40|42|44|<a|«B|s0| 53 36 |sB 1 6Q [t.a| «<| 66| 



SCALE: APPROX. OOURLI 
S«f. HI 
ACTUAL CARD SIZI: 

3 1/4" X T 2/f 



CUT-OUTS FOR 
PASTINS 



1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 18 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 71 79 10 
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 71 79 80 



r 



IBM 



IBM CARD LAYOUT FORM z 



FORM X74-4049-12 



*4T 

-?* 

r 345 

;s: 

1445 

\ l ~ 

1545 



1 



1 



I 



ST£P 

000000 

1 2 3 4 5 6 
111111 



22222222222222222222222222222 



333333 



555555 
6 6 6 6 6 6 
777777 



000000000000 

7 i 8 9 10 11 12 13 14 15 16 17 



11111111111 



333333333333 



44444444444444444444444444444444444444444444 4 444444444 44 4444444444444 4 4444 444444 



55 



oooooooooo 



19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 ;63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 78 N 



1111111111 



2 22222222222 
33333 3 3333 3;3 3333333333 



5555555555 



5555555555 

6 6 6 6 6 6 6 6 6 6 6 6 8 S 6 6 6 S f I S 6 $ 6 6 £ § 5 S 6 6 
7777777777 



7777777777 



99999999999999 9 9 9 9|9 9999999999999999999 99999 

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 







11111111111 



5555555555 
66 

7777 77 7 777 



00000000000 000000000 00000000000000000 



mi mini 
ii-tiirii piiihh i ~T 



-££C V£y^'<:y 

/ 



&e£^-Ls£.\\ 



111111111111111111111 



2 2 222222222 
3 3 3 3 3 3 3 3 3 313 



999 99999 

42 43 44 45 46 47 48 49 50 51 



222222 222 2 2 22222222222222222 



3333333333 



5555555555 



5555555555 

6 6666666666666666666666666666666666666666 

7 7 7 7 7 7 7 7 7 7 



7777777777 



1111111111111111111 



33333 3 333333333333 



555555555555555555 



777777777777777777 



999999 9 9 999999999999999999999 

5253545556 57 585960 61|62 63646566 67 6869 70 71 72 73 74 757677787980 



CD. 

i: 

CD 

■:• 

a 

i: 

CD 

i: 

CD 

b: 

a 

i: 

CD 

i: 

CD 

i: 

CD 

i: 

CD 

b: 

a. 

i: 

CD 



\ \ 2 I 1 ; I 4 I ; I t I y ' I e I > i'i.oi i.i 1 12 I 1.3 1 ill i.s'l isl i7h«l i»| Jo 1 21 1221 



,1 ,1, 1 



3.2|33|3J[35l36|3)l3al3 



1 I I I ,1. 



I 42 I 4.3 [44 145746 



I I I I r 



I ,1.1 



|4» I 50 1 5 1 52 1 53 | 54) 55 56 I 57 1 5» | j', tj [ t,|' ,2 « 3 ' t4 | 65 | «, | 67 1 «i I ttTToW 
• I sV'l 3B I 3» [ 40 | ' 4 i I ; »* I V I V* I X» I " ■<« I 47 I il ' l ' V l 'sO 51 I ' sVl si t 
| 2. | 29 | 30' I' 31 I 32 1 33 |' 34 ' f 35 ' | 36 f 3.7 I 36 I 39 -j~40 



30 | 3.1 | 3.2 | 33 | 



25 I 2 7"" 



"i — r 



7 .2 | 7 3 1 74 r» 



DCjED(Z3ED< 



5.4 I 5.5 I 56 
I 41 I 42 



76 1 77 I 76 I TBI BO [ 



I .1 I 



57 I SB I S» TmI 



43 I 44 | 45 



[II PIIIIIH PHIIHH I 



COMPLETE THESE SECTIONS FOR ALL LAYOUTS 



UANCH OFFICE NAME 



TRANSMITTAL NO. 



CUSTOMER NAME 



CUSTOMER NO. 

:.§s.'. s e.t yes □»«>□ 



CUSTOMER REFERENCE AND DATE 

MAIL 

PROOFS TO 



uj /'/ ■.->---/- 



LAYOUT FREFARED 



YESD MOD 



Is this a revision of, or replacement for, 
an existing IBM card form? 

If (YES), indicate present IBM card form no 

May the existing printing plate be scrapped? YES Q NO Q 
If (YES), indicate authority for scrapping: 



AUTHORITY 



DATE 



CORNERS TO BE CUT 
NONE □ 

UPPER n □ 

tiff urn 
LOWER □ □ 

IIMJMRI LIVER LEFT HIIEI 

en it in ntiiuim ni 
CUM II RE IIEI «ITR III II 
till Fill! Ill uumi 1IT1 
imilll TTFE FEEII. |C-1 II 

iiciiiEimi 



INTERPRETATION 



□ 



Fll. III. 1 — 1 

t FIIITEII | | 

UPI1- 



FIIITIII I 1 

Fllllll I I 

ii H-iiei 1 — i 

FIHTERS I | 



60 SKKu 552 □ 557 □ 

■ILL FEED uni ii 1111Q 

END PRINTING stri-D sficQ 

TYPEWRITER Lilts i— , 

SFICIRt II lIClLJ 



POINTERS FOR ) 1) DETERMINE SHORT CARD COLUMN NUMItRS tY REFERRING TO OUIDE AND COLUMNS 1) CUT OUT THE STRIP OF COLUMN NUMRERS. 

SHORT CARD J PRINTED SELOW. USARLE COLUMN RANOE IS ESTARUSHED IY THE CAPACITY LOCATION 3) PASTE THE STRIP ON THE LAYOUT FORM IN DESIRED LOCATION FOR THE SHORT CARD. 
LAYOUTS J ON EACH SIDE OF OUIDE. E. O.. ON A 51- COLUMN CARD. USUARLE COLUMNS ARE 15-65. 4) RULE ENDS OF SHORT CARD J I/] COLUMNS BEYOND THE STRIP OF COLUMN NUMBERS. 

|6S|63|&1 |S9|S7|55|S3|S1|49|47|45|43|«1|3->|37|35|33|31|29|27|I5|23| 1^ SHORT CARD COLUMN GUIDE 

2|40|3B|36|34|3I|30|2B|26|24|22[^. CARD CAPACITY (COLUMNS) 



COMPLETE THESE h 



W a» lf-i«— If 



SECTIONS' WHEN APPLICABLE 



REQUIREMENTS 



CIIIItlTIK 
FIEFIIIRIIB. 
tMUIITIK 



SCBRINS □ 

PRENVMRERIN& □ iX$22&, D' 

(INDICATE ON THE LAYOUT THE LOCATK>N\ 
OF EACH FEATURE SPECIFIED ABOVE. I 

storD p»dD contiwiobsD 
if em is to at rami , Ha . r— i 
ei mtr sues, iiiicm J )=i 

SITU. ' TiMlfQ 



FOR MARK SEISINS CARDS, IIBICRit STYLE 

tm hr ■ mm w m " 

mm* Mmi ■- 1. M«HiM«. 



R»— i 

■I Mm as. 



S) DETERMINE MARK SENSE POSITIONS. IF ANY, BY ASSOCIATING STRIP NUMBERS WITH CARD 
LAYOUT POSITIONS. E. G., ON A 31- COLUMN CARD. M. S. POSITIONS »-M ARE USABLE. 



66(64 62 



|S3|55|S7 S9I61 l63l6S| 



SCALE: APPIOX. DOUBLE 
SIZE. J | 2 
ACTUAL CARD SIZE? ' 

3 !/+" X 7 3/8" 



CUT-OUTS FOR 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 
PASTING 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 60 



MEETING ASSUMPTIONS Ctf HOMOGENEITY OF VARIANCE: 
NONLINEAR DATA TRANSFORMS AND BARTLETT'S TEST 



By 
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INTRODUCTION 

When working with various statistical routines, an investigator may have reason 
to suspect that there are substantial differences in variance among the sets of scores or 
observations o Under these conditions he may wish to perform Bartlett's Test for 
Homogeneity of Variance. 

This test is usually performed on the original data, and if the variance is found 
to be heterogeneous, then a nonlinear transformation on the data can be accomplished, 
and Bartlett's test done a second time. The process is usually repeated until a transform 
is found which will produce variance in the sets of data which does not depart signifi- 
cantly from homogeneity. 

In programming the above operations on the IBM 1620 computer the slowest 
operation is in reading the data into the computer. Consequently, in the present work 
it has been found advantageous to read in the original data, perform several nonlinear 
transformations, and to punch out a card containing the original score and the trans- 
formed scores. In addition, summary cards which contain the number of cases, the sums 
of the scores, and the sums of the squared scores are punched out for the original data 
and for each transformation of each set of scores. The four transforms used are discussed 
by Edwards (1). They are: 1) X + .5, 2) X + X + 1 , 3) Log of (X), and 
4) the reciprocal of (X) where (X) is the original score. 

The input for the Bartlett test is the summary cards for the sets of scores, and the 
test is performed for the original data and each transformation. If the variance of sets 
of scores is found to be homogeneous for the original data, the investigator need not 
concern himself with the tests for the four transformations. If, however, Bartlett's test 

l 



i 



on the original data shows the variance of the groups to be heterogeneous, the investi- 
gator may inspect the significance levels of the four transformations to find the most 
acceptable transformation of the data. 

DESCRIPTIONS OF PROGRAMS 
THE TRANSFORMATION PROGRAM 

This program transforms the raw scores, obtains the sums of (X) and the sums of 
(X) squared of raw and transformed scores, punching these into six decks of cards. These 
may be separated by machine sorting. Five of the decks are for input to the Bartlett 
program, the sixth is a table which gives the group identification, subject identification, 
and original and transformed scores for each subject. 
FORMAT FOR INPUT CARDS 



Card 


Columns 


Information 


Example 


EDIT 


1- 4 


Number of groups 


0012 


GROUP 


1- 4 


Group number 


0001 




6- 9 


Number of subjects 


0009 


DATA 


1-10 


Raw score 


.000416.892 




12-15 


Subject's number 


2043 



Blanks may be used in place of leading zeros in the data fields. The input 
consists of the EDIT card, the GROUP card for the first group, the DATA cards for the 
first group with one card per subject, the GROUP card for the second group, the DATA 
cards for the second group on its corresponding number of cards, et cetera until all 
groups have been accounted for. 
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OPERATING THE PROGRAM 

1 . Place the program in the card reader. 

2. Place data cards on top of the program deck. 

3. Press the RESET button on the console, the LOAD button on the card 
reader, and the START button on the card punch. 

4. When LOAD DATA is typed, the program will automatically read the 
data and process the problem. 

5. When END OF JOB message is typed and instructions for indicating a new run 

are typed, NON PROCESS RUNOUT ON THE CARD PUNCH must be pressed 
to obtain all the output cards. The program is completed at this time. 

6. The output cards must be sorted numerically on column 65, The cards in 

hoppers one, two, three, four, and five are the input data for the Bartlett 
program. The remaining cards (in the reject hopper) when listed with an 
80-80 board on a 407 machine will yield the table of transformed scores. 
PROCESSING TIME 

The approximate computer time necessary to accomplish the Transformation 
Program is given by the following equation: 

Execution Time = 2N + 50 seconds 

where N = total number of cases in all of the groups. 
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flow Diagram transformation program 




PRINT IDENTIFICATION 



ZEROIZE SUMS AREA 



I 



READ NUMBER OF GROUPS 



I 



READ GROUP NUMBER AND NUMBER OF SUBJECTS (23)" 



/ 




READ SCORE AND SUBJECT'S NUMBER 


■1 





PERFORM TRANSFORMATIONS 
AND SUM X AND X SQUARES 
FOR ALL THE TRANSFORMS 




YES 



PUNCH 

HEADER CARDS FOR BART LETT INPUT 
AND FOR THE TRANSFORM TABLE 




PUNCH TRANSFORMED SCORES 
FOR TABLE 



PUNCH BART LETT INPUT DATA CARDS 
AND 

ZEROIZE" THE SUMS AREAS AGAIN 




TRANSFORMATION PROGRAM LISTING 



22 



23 



21 



SYMBOL DEFINITIONS FOLLOW. 

LAST=LAST CARD OF GROUP 
NOGRP= NUMBER OF GROUPS 
NUMGP= SUBGROUP NUMBFR 
MOCAS= NUMBER OF CASES 
XRAW= RAW SCORE 

KASNO= CASE OR SUBJFCT NUMBFR 

SUMX= SUM OF RAW SCORES 

5UMX2= SUM OF RAW SCORES SQUARED • 

XA2= SORT OF X+.5 SQUARED WHERF X IS THE RAW SOORF 
XA= SQRT OF X + .5 

SMXA2= SUM OF SQRT OF X + .5 SQUARED 
SMXA= SUM OF SQRT OF X+.5 
XB= SQRT OF X + SQRT OF X+l 

XB2= THE SQUARE OF THE SQRT OF X + SQRT OF X+l 
SMXB= SUM OF SQRT OF X + SQRT OF X+l 

SMXB2 = SUM OF THE SQUARE OF THE SQRT OF X + SORT OF X + l 

XC= LOG OF X 

XC2= LOG OF X SQUARED 

SMXC= SUM OF LOG OF X 

SMXC2= SUM OF LOG OF X SQUARED 

XD= RFC I PROCAL OF X 

XD2= SQUARE OF THE RECIPROCAL OF X 
SMXD= SUM OF THE RECIPROCALS OF X 

SMXD2= SUM OF THE SQUARES OF THE RFC I P ROC A I S OF X 
KOUNT= COUNTER TO DETERMINE FIRST CARD 

N U M T R = IDENTIFICATION NUMiJER USED WITH EACH TRANSFORM. 

PROGRAMMER IDENTIFICATION CARD PUNOHFD. 
PRINT 9 09 

CON= .43429448 

SUMX=0. 

SUMX2=0. 

SMXA2=0. 

SMXA=0. 

SMXB=0. 

SMXB2 = • 

SMXC=0. 

SMXC2=0. 

SMXD=0. 

SMXD2=0. 

PROGRAM BEGINS. 

READ CARD WITH NUMBER OF GROUPS. 

READ 1 » NOGRP 

KOUNT=l 

READ CARD WITH GROUP NUMBER AND NUMBER OF CASES IN GROUP. 

READ2 »NUMGP»NOCAS 

LAST=0 

READ CARD WITH RAW SCORE AND SUBJECT NUMBER. 
READ3 ,XRAW*KASNO 

SUM RAW SCORE AND RAW SCORE SQUARED. 

SUMX=SUMX+XRAW 

SUMX2=SUMX2+ ( XRAW#XRAW) 

BEGIN SQRT(X+.5) TRANSFORMATION. 



A 7 7 
A 7 7 u 
A0707G 
A 7 7 
A o 7 7 n 
AQ70 7O 
A 7 7 
A 7 7 
A 7 7 Q 
A 7 7 
A 7 7 
A 7 7 
A 7 7 
A 7 7 
A 7 7 
A 7 7 
A 7 7 
A07070 
A07070 
A 7 7 
A 70 7 
A07070 
A07070 
A070 70 
A 7 7 
A0707O 
A07070 
AO 70 70 
AO 70 70 
AO 70 7 
AO 70 70 
A 7 8 2 
AO 7 106 
A 7 1 3 
AO 7 154 
A071 76 
A07202 
A07226 
AO 72 5 
A07274 
A07298 
A07322 
AO 734 6 
AO 7346 
A07346 
A07370 
A07394 
A07394 
A07430 
A07454 
A07454 
A07490 
A07490 
A07526 
A07574 
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TRANSFORMATION PROGRAM LISTING (Cont'd) 



XA2=.XRAW+0. 5 

XA=SQRTF ( XA2 ) 

SMXA2=SMXA2+XA2 

SMXA=5MXA+XA 

BEGIN SORT ( X )+SQRT ( X+l ) TRANSFORMATION. 

X6=SQRTF ( XRAW ) +SORTF ( XRAW+1 . ) 

XB2=XB*XB 

SMX8=SMXB+XB 

SMXB2=SMX62+XB2 

BEGIN LOG(X) TRANSFORMATION. 

IF SCORE USED IS ZERO (0)»LOG OF' ONE (1) 

I F ( XRAW )4 » 5 , 4 

XO ( LOGF ( 1 . ) )*CON 

XC2=XC*XC 

GO TO 6 

XO ( LOGF ( XRAW ) )*CON 
XC2=XC*XC 
SMXC=SMXC+XC 
SMXC2=SMXC2.+ XC2 
BEGIN RECIPROCAL 
XD=1. /XRAW 
XD2=XD*XD 
SMXD=SMXD+XD 
5MXD2=SMXD2+XD2 
IF FIRST TIME HERE 
IF(KOUNT-l ) 13,7,13 
BARTLETT HEADER CARDS. 
NUMTR= 1 

PUNCH9,N0GRP». NUMTR 
NUMTR=2 

» NOGRP » NUMTR 



IS USED. 



OF X TRANSFORMATION 



PUNCH BARTLETT HEADER CARDS , STATEMENT NO. 7 



NOGRP, NUMTR 



NOGRP , NUMTR 



PUNCH 41 
NUMTR=3 
PUNCH 42 
NUMTR=4 
PUNCH 43 
NUMTR = 5' 

PUNCH 44 * NOGRP > NUMTR 
IF FIRST TIME HERE PUNCH 
13 KGUNT=KOUNT+l 

TRANSFORM HEADER CARDS. 
I • ' ' . '.! NT-2)15>14»15 

PUNCH27 
PUNCH28 
PUNCH29 
PUNCH31 
PUNCH3 2 
PUNCH 3 3 
PUNCH16 

PUNCH TABLE VALUES. 
1 5 PUNCH 1 7 »NUMGP » KASNO » XR AW » X A » XB » XC > XD 

LAST = LAST + 1 *' 

IF ( NOCAS-LAST ) 19 , 19 ,21 
19 CASES=NOCAS 

NUMTR=1 



TRANSFORM TABLE HEADER CARDS , ST ATMENT 14 



A07574 
A0761 
A07634 

A07670 

A07706 

A07706 

A07790 

A 78 2 6 

A07862 

A07898 

A07898 

A07898 

A 7 9 5 4 

A 7 9 9 

A08026 

A08034 

A 80 7 

A08106 

A08142 

A08178 

A08178 

A08214 

A08250 

A08286 

A08322 

A08322 

A08390 

A08390 

A08414 

AQ8450 

A08474 

A08510 

A08534 

A0857C 

A08594 

A08630 

A08654 

A08690 

A08690 

A08726 

A08726 

A08794 

A08806 

A08818 

A08830 

AO 884 2 

A08854 

A08866 

A08878 

A 8 8 9 

A 8 8 9 

A08986* 

A09034 

A091 02 

A09138 
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TRANSFORMATION PROGRAM LISTING (Cont'd) 



C. PUNCH BARTLETT INPUT DATA CARDS. ' 

PUNCH 18 » CASES »SUMX » SUM X 2 , NUMTR 
NUMTR =2 

PUNCH 18, CASES » SMXA » SMX A2 » NUMTR 
NUMTR=3 

PUNCH 1 8 » CAS ES » SMX3 » SMX B2 , NUMT R 
N U M T R = 4 

PUNCH 1 8 » C A S E S » S M X C » S-M X C 2 , N UM T R 
NUMTR=5 

PUNCH 4 5 » C A S E S , S M X D » S M X D 2 > N U M T R 
C ZERO SUMMATION AREAS 

SUMX=0. 
SUMX2=0. 
SMXA=C. 
SMXA2=G. 
SMXB=C. 
SMXB2=G. 
SMXC=0. 
SMXC2=G. 
SMXD=0. 
SMXD2=G. 

C IF ALL GROUPS WORKED STOP WITH STATEMENT NO. 24, 

I F ( NOGRP-NUMGP ) 24 » 24 * 2 3 
24 PRINT25 
PAUSE 
GO TO 22 

C 

C FORMAT STATMENTS FOLLOW. 

C 

1 FORMAT ( 14 ) 

2 FORMAT ( 14* 15 ) 

3 FORMAT ( FIG. 5 , I 5 ) 

9FORMAT( I 4 » 3 X 1 H N » 6 X 5 H S U M X,2X8HSUM X SQ , 1 X 1 1 HX = R AW SCORE, 1 

16 FORMAT ( 3X1 HA, 3X lh B , 8X 1 HC » 7X1 HD ♦ 9 X 1 HE » 1 OX 1 HF ,9Xlh<V ) 

17 FQRMAT(l4»I5»FiG.2,2FlO.4,F10.5»F10.6) 

18 FORMAT(2F10.2,F10.2,33XI2) 

4 1FORMAT ( I 4 , 3X1HN » 6X5HSUM X,2X8HSUM X 

X,2X8HSUM X 
X,2X8HSUM X 
X»2X8HSUM X 



■ X 12 ) 



42FORMAT ( I 4 , 3X 1 HN , 6X 5HSUM 
43FORMAT ( I 4 , 3X 1 HN , 6X 5HSUM 
44F0RMAT ( I 4 » 3 X 1 H N , 6 X 5 H S U M 



SO, 10X12HX = SORT (X+,5 ) ,12X12) 
SQ, 10X19HX = SQRT (X)+SQRT(X+1) ,5X12) 
SQ,10X8HX=LOG(X), 16X12) 
SQ, 10X17HX=RECI PROCAL OF X,7XI2) 



45 FORMAT ( 2F1C.2 ,F10. 6 ,33X12 ) 

25 FORMAT(28HPUSH START TO BEGIN NEW RUN.) 

26 FORMAT ( 14HA=GR0UP NUMBER) 

27 FORMAT ( 16HB=SUBJECT NUMBER) 
2 8 FORMAT ( 1 1 HC=RAW SCORE) 

29 FORMAT ( 12HD=SQRT ( X+.5 ) ) 

31 FORMAT( 19HE = SQRT(X)+SQRT(X+1 ) ) 

32 FORMAT ( 8HF=LOG(X ) ) 

33 FORMAT ( 1 7HG= REC I PROCAL OF X/) 

909 FORMAT ( 5 0HPROGRAMMED BY R.C. IRONS, SCHAVMED, PENSACOLA, FLA) 
C END OF PROGRAM. 

END 



A 9 1 6 2 
A09162 
A09222 
AC9246 
A 9 3 6 
A09330 
A 9 3 9 
A09414 
AQ9474 
A09498 
A 9 i> j b 
A0955S 
A 9 5 8 2 
A 9 6 6 
AO 96 3 
A09654 
A09678 
A09702 
A 9 7 2 6 
A 9 7 5 
AC9774 
A09798 
A09798 
A09866 
A098 78 
A09890 
A 9 8 9 8 
A09898 
A09898 
A 9 8 9 8 
A09920 
A09948 
A09976 
A101 16 
A10250 
A10302 
A 1 3 4 6 
A10488 
A10644 
A10778 
A10930 
A1C974 
A11054 
All 106 
A.1 1162 
A11208 
Al 1256 
A11318 
A11358 
A 1 1 4 2 2 
Al 1546 
Al 1546 
00162 
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TRANSFORMATION PROGRAM SYMBOL TABLE 



a r\ ; "i D c c c c c 


M A K". P" HI M CMC I Pi V 


r T *Tr 

O i A I t 


LUC 


C P D M 

r UK el. 


1 O f~ 

LUC 


C T V 

r IX 


r lOA TING 


A 


1 QQQQ 

±7777 


O 1 in 














A 


± 77 O V 


C IMC 

O 1 In r 














A 


1 OQ7Q 
















A 


T Q O A Q 
1 77D7 


r nc c 
LUbr 














A 


1 O Q C. Q 


ATA K' 

A 1 A in 














A 


19 949 


A T A MC 

A 1 AlNr 














A 


i o n o 

19 9 3 9 


cr \/ r> 

fcXP 














A 


19 9 2 9 


EXPF 














A 


19 919 


LOG 














A 


19 9 9 


LOGF 














A 


l 9 o 99 


SORT 














A 


19 8 6 9 


oQRTr 














A 


17 8 7 9 


SIGN 














A 


1 9 a 6 9 


S I G N F 














A 


I ^ D y 


AdS 














A 


*i o o /> n 

1 y ony 


Ado r 














A 


1 7 b 3 9 


KDNm 














A 


1 9 o 2 v 


D r\ i\i Nil tr 

K D In M r 














A 


1 9 o 1 9 








09Q 9 


11422 






A 


1 9 o 9 


CON 














A 


1 Q7QQ 














4342944c 00 


A 


1 Q 7 a O 
17 1 fiV 


C 1 1 KA V 

o.UMa 














A 


1 Q770 
17 1 17 














OOuUOGOO 99— 


A 


1 Q7AQ 
IV ID; 


C 1 1 M Y ~> 

o Url A c 














A 


1 q 7 c, q 

1 7 J 3 7 


O l v l A A c. 














A 

A 


1 Q 7 Zj. Q 

X 7 ( *+ 7 


C M V A 
Oi v | A A 














A 


IV 1 JV 


O rl X D 














A 


1 Q "7 O O 

IV i ZV 


o r i A D 2 














A 


1 Q "7 "I Q 

1 V I 1 V 


o M X C 














A 


T O ~7 P 
1 7 7 U V 


S M X C 2 














A 


196 99 


SMXD 














A 


19689 


SMXD2 














A 


19679 




0022 


07346 










A 


19669 








001 


09898 






A 


19659 


NOGRP 














A 


19 6 49 


KOUNT 














A 


196 39 












0001- 




A 


19 62 9 




002 3 


07394 










A 


19619 








000 2 


09920 






A 


1 9 6 U 9 


MUMGP 














A 


i v d v y 


NUCAS 














A 


19 5 89 


LAST 














A 


1 9 5 / > 












0000- 




A 


19 569 




0021 


07454 










A 


19 5 3 9 








00 3 


09948 






A 


19 5 4 9 


V O A 1./ 

XKAW 














A 


19539 


KASN0 














A 


19529 












000 




A 


19519 












001 




A 


19509 


XA2 














A 


19499 














50000000 CO 


A 


1 9 48 9 


XA 














A 


19479 


XB 














A 


19 469 














10000000 01 


A 



J 21 V V. F 



TRANSFORMATION PROGRAM SYMBOL TABLE (Cont'd) 



1 94 5 9 

19 449 

1 94 3 9 

1942 9 

1 94 1 9 

19409 

19 399 

19 389 

19379 

19369 

19359 

19349 

19339 

19329 

19319 

19309 

19299 

19289 

19 2 7 9 

19269 

19259 

19 249 

19 2 3 9 

19229 

19219 

192 9 

19199 

19189 

19179 

19169 

19159 

19149 

19139 

19129 

19119 

19109 

19099 



XB2 



xc 

X.C2 

XD 
XD2 



NUMTR 



0004 08034 

0005 G7954 



0006 08106 



0013 08690 
0007 08390 



.0015 08890 
014 08 7 94 



CASES 



0019 09102 



0024 09866 



0009 
04 1 
0042 



09976 



10 3 46 



438 



04 3 10 644 



044 10 778 



0026 
0027 
0028 
0029 
031 
00 3 2 
003 3 
0016 
0017 



11054 
11106 
11162 
11208 
11^256 
11318 
11358 
10116 
10250 



0018 10302 
0045 1093C 

0025 10974 



n a n ? ■ 



0GC3- 



iOQ4- 



0005' 



A 
A 
A 
A 

A 

A 
A 
A 
A 
A 
A 
A 
A 
A 
A 



A 

A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 



9 2 



9 



1 9 *> 



TRANSFORMATION 



PROGRAM 



INPUT 



DATA 



6 
24. 
41. 

37. 
40. 

37. 
32. 

6 

40. 
36. 
29. 
44. 
38. 
35. 

17 
35. 
38. 
39. 
49. 
50. 
35. 
36. 

54. 
52. 
40. 
43. 
38. 
42. 
38. 
44. 
46. 
37. 



227 

231 

233 

204 

206 

236 

209 
222 
230 
237 
239 
240 

205 
207 
211 
212 
213 
215 
216 

217 
218 
220 
221 
224 
225 
232 
234 
238 
251 



10 
30. 
34. 
44. 
36. 
43. 
48. 

25. 
42. 
44. 
32. 

4 

29. 
31 . 
36. 
28. 

12 
31 . 
33. 
46. 
39. 
40. 
33. 
37. 
44. 
46. 
45. 
35. 
25. 
5 

39. 
45. 
53. 
37. 
48. 



8 



203 
208 
210 
214 
219 
223 
226 
228 
229 
235 

247 
256 
261 
262 

246 
249 
250 
253 
254 
255 
259 
260 
263 
265 
266 

243 

242 
244 
245 
291 
248 



10 



11 



12 



5 

47. 
35. 
24. 
50. 
42. 
5 

33. 
37. 
37. 
46. 

35. 

11 
36. 
20. 
37. 
38. 
32. 
44. 
18. 
33. 
46. 

35. 
35. 

5 

41 . 
38. 
38. 
36. 
27. 
3 

41 . 
48. 
'26. 



241 
252 
257 
258 
264 

270 
274 
275 
288 

290 

267 
269 
271 
272 
278 
281 
282 
284 

285 
286 

289 

268 

273 
276 
280 
283 

277 
279 
287 



10 
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TRANSFORMED SCORES TABLE 



A=GROUP NUMBER 
B=SUBJECT NUMBER 
C=RAW SCORE 
D=SQRT(X+.5) 
E=SQRT(X)+SQRT(X+1) 
F=LOG(X) 

G=RECIPROCAL OF X 



A 


B 


C 


D 


1 


227 


24.00 


4.9497 


1 


231 


41.00 


6 . 4420 


1 


233 


37.00 


6.1237 


1 


204 


40.00 


6 • 3639 


1 


206 


37.00 


6 • 1237 


1 


236 


32.00 


5 • 7008 


2 


209 . 


40.00 


6 • 3639 


2 


222 


36.00 


6 • 0415 


2 


230 


29.00- 


5.4313 


2 


237 


44.00 


6. 6708 


2 


239 


38.00 


6. 2048 


2 


240 


35.00 


5 .9581 


3 


205 


35.00 


5 • 9581 


3 


207 


38.00 


6.2048 


3 


211 


39.00 


6 • 2849 


3 


212 


49.00 


7.0356 


3 


213 


50.00 


7 • 1063 


3 


215 . 


35.00 


5.9581 


3 


216 


36.00 


6.0415 


3 


217 


54.00 


7.3824 


3 


218 


52.00 


7.2456 


3 


220 


40.00 


6.3639 


3 


221 


43.00 


6 . 5 9 S A 


3 


224 


38.00 


6 • 2 04ft 


3 


225 


42 .00 


<-> • -J X 7 a 


3 


232 


38.00 


6.2 048 


3 


234 


44.00 


6 • 6 7D 8 


3 


238 


46 .00 


6 • 8 1 9fi 


3 


251 


37.00 


6.1237 

^ » J- Cm 1 


4 


203 


30.00 


5 • 5?? a 

• -J A A <-> 


4 


208 


34.00 


5.8 736 


4 


210 


44.00 


6 .6708 


4 


214 


36.00 


6.0415 


4 


219 


43.00 


6.5954 


4 


223 


48.00 


6.9641 


4 


226 


25.00 


5.0497 


4 


228 


42.00 


6.5192 


4 


229 


44.00 


6.6708 


4 


235 


32.00 


5.7008 


5 


247 


29.00 


5.4313 


5 


256 


31.00 


5.6124 


5 


261 


36.00 


6.0415 


5 


262 


28.00 


5.3385 


6 


246 


31.00 


5.6124 


6 


249 


33.00 


5.7879 



E F G 



9 .8989 


l « ^ ft n 9 l 

x . _> u a 1 


• 041666 


12 .8838 


1.61278 


r\ /■ q o r\ 

. U 6 T J 7 U 


12.2471 


1 . J O O A U 


.02/027 


12.7276 


i . a n 9 n a 


. a 9 00 


12 .2471 


i « s a ft 9 n 

X . J O O A \J 


. U A ( U A f 


11.4014 


i . 6 n r ) i ^ 


mi 1 r, rs 
. U O i A J J 


12.7276 


1 . a n ? n a 

x . yJ v A \J \J 


« n 9 R n r\ r\ 
. U a 9 U U U 


12.0827 


1 . F> R A ? n 


• V C. f ( 1 1 


10.8623 


1 . A A ? -J Q 
1 . ■+ O A J 7 


. J 44 2 




1 . u*+ .5 *f D 


A O O "7 "i *7 

.022727 


12.4094 


1 - <=. 7 Q 7 D 
X . -J 1 7 1 O 


• U 2 6 3 1 5 


] 1.91 AO 


l . R a. a n A 


.028571 


1 1 • 9 1 6 


l . c . A A H A 


•026571 


12.4094 


x . -J / 7 1 O 


.026315 


12.5695 


1 . c . Q 1 HA 
i»-'7iUD 


. 2 5641 


14.0710 


X . O 7 U i 7 


A 7 A A A O 

. (J a 4 8 


l/i,71 9 A 
x «+ . A X A *+ 


~\ A Q n ~7 


• 020000 


1 1 . Q 1 AO 
XX • 7 1 uu 


. 028571 


1 ? m ft 9 7 
X A • W O A 1 


1 £v £ A "3 Ti 

1 . D 9 O J U 


• 027777 


1 A - 7 A A A 


1 7 "2 O O O 

1 • f 5 d. 07 


• 185 1 8 


1 /, .A Ql •? 
x *+ . *+ 7 1 A 


1 . I 1 6 


• 019230 


19 7 9 7 A 
i . /A / O 


1.60206 


• 025000 


i 'X i n a 


1 • 63 346 


.023.2 5 5 


x A . *+ U 7 *+ 


T C "7 H "7 

1.5 / 9 78 


.026315 


1 _> . U D O X 


1 A O O T / 

I . OA 3 24 


• 2 3 8 0-9 




1.5 / 9 7o 


• 0263 1 5 






• 022727 


1 -> * O D 17 


1 A £. O "7 C 

1 . 00 2 J 5 


• 021739 


1 9 . 9 A 7 1 


1 . 96820 


• 027027 


i i . n a AO 

X X . W *+ 7 


1 • A 7 7 1 O 
1 • *f ' ' 1 A 


.033333 


11 .7470 


1.53147 


.029411 


13.3414 


1.64345 


.022727 


12.0827 


1.55630 


.027777 


13.1906 


1.63346 


.023255 


13.9282 


1 .68124 


.020833 


10.0990 


1.39794 


.040000 


13.0381 


1.62324 


.023809 


13.3414 


1 .64345 


.022727 


11 .4014 


1.50515 


.031250 


10.8623 


1.46239 


.034482 


11 .2246 


1.49136 


.032258 


12.0827 


1.55630 


.027777 


10.6766 


1.44715 


.035714 


11.2246 


1.49136 


.032258 


11.5755 


1.51851 


.030303 
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TRANSFORMED SCORES TABLE (Cont'd) 



A 
O 


9 R Pi 
A 9 U 


a a n n 


. 1 y u 


i 1 / 7n 

13.63 i y 


1 • 6627 5 


. 021739 


A 

o 


A _> 


^ q - no 

9 7 • V V 


A « 9 ft AO 
O . A O *f 7 


1 A . D O 7 D 


1 . y 1 u 


n O R L. A 1 

. U a ->6 4 1 


A 
\j 


? B A, 

A *T 


4 . Q 


A - A 1 Q 


19 7 7 A 
i A . f A ' O 


1 A C\ O Pi A 
1 * OU A U O 


c; n r> A 
. a 5 U U U 


A 

<J 


9 R R 
C J J 


_) - 1 • u u 


r. 7 7 q 
J • / O / 7 




1 . 5 1 O 1 


. 30 3 U 3 


A 
O 


A 9 7 




A 1 -3 7 
O • J. A 3 I 


19 9 /, 7 1 
1 A • A 4 7 1 


1 C O ') A 

1 . 36o20 


A T7 AT 7 

• 2 70 2 7 


A 



a n 
A u 


a a no 


A i7ftO 
0.0 / (JO 


13.3414 


1 .64345 


. 022727 


e. 
O 


O A O 
AO 3 


/.a r\ n 
4 O • 


6.8190 


13.6379 


1 .66275 


• 2 1 7 3 9 


6 


265 


4 5 • U 


6.7453 


13.4905 


1.65321 


• 022222 


6 


266 


3 5.00 


5.9581 


11.9160 


1 • 54406 


.028571 


6 


243 


2 5.00 


5 .0497 


10.0990 


1.39794 


• 040000 


7 


242 


39.00 


6. 2849 


12.5695 


1.59106 


• 025641 


—7 

7 


244 


45.00 


6 • 7453 


13.4905 


1 .6,5321 


.022222 




245 


5 3. 00 


7.3143 


14.6285 


1 .72427 


• 018867 


7 


291 


3 7.00 


6 • 1237 


12.2471 


1 .56820 


• 027027 


-j 


"3 /■ O 

2 48 


48 . U 


6.9641 


13.9282 


1.68124 


• 020833 


Q 
O 


2 41 


/. "7 f \ C\ 

4 7.00 


6.8920 


13.7838 


1 • 67209 


• 021276 


Q 
O 


2 5 2 


3 5 . U 


5.9581 


11.9160 


1 .54406 


• 028571 


O 
O 


O K "7 

25 7 


A 4 . U U 


4 . 949 7 


9.8989 


1 .38021 


• 4 1 6 6 6 


P 
O 


O K Q 

A 5 


9 0.00 


7.1063 


14.2124 


1.69897 


. 020000 


Q 
O 


OA/. 
2 64 


a n n 
4 2 . U U 


6.5192 


13.0381 


1 .62324 


.023809 


Q 

7 


A ' U 


o nn 
j JiUU 


P. 7Q7Q 

d • ( f y 


11 C "7 C 

1 1 .5 755 


1.51851 


. 030303 


Q 


2 f 4 


07 no 


A 1 O O 7 
O . 1 A 3 7 


1 O O /. "7 1 

1^.2471 


1.56820 


• 027027 


Q 

7 


i ID 


07 nn 
3 1 . U 


A 1 O 1 "7 

O • 1 1 3 7 


1 7 /, 7 1 
12.2471 


1 a n r\ 

1.56820 


• 027027 


Q 

7 


"5 ft ft 
A O 


a a n n 
f . u u 


A fil QA 

. 1 y u 


13.63 7y 


1.66275 


• 2 1 7 3 9 


Q 

7 


A 7 U 


Q C O ("1 

3->tUU 


• y DO 1 


ii 1 /~i 
11.9160 


1 • 54406 


• 0285 7 1 


1 


O A 7 
AO 7 


1 a n ri 


6.0415 


IO O u O "7 

1 2 • U82 7 


1 . 55630 


• 0277 77 


1 


O A O 

a y 


A • 


4.5276 


9.0 547 


1 • 3Q 10 3 


• 050000 


1 


A 7 I 


"7 n n 
3 7 . U 


/■ 1 "7 

6 • 1237 


12.2471 


1.56820 


• 027027 


1 


O "7 O 

2 7 2 


3 • 


6.2048 


1 2 .4094 


1.57978 


• 0263 1 5 


1 


A / O 


3 2.00 


5 . 7008 


11.4014 


1.50515 


• 0312 50 


1 


O O T 

2 81 


44.00 


6 • 6708 


13.3414 


1 .64345 


.022727 


1 f> 

1 


282 


1 • u 


4.3011 


8.6015 


1.25527 


• 055555 


1 


284 


33.00 


5 • 7879 


1 1 .5755 


1.51851 


• 3.0 3 3 


1 c 


c 

28 5 


46.00 


6 • 8190 


13.6379 


1 .66275 


.021739 


1 


286 


3 5.00 


5 • 9581 


11.9160 


1 • 54406 


.0285-71 


1 


28 9 


3 5 . U 


5.9581 


11.9160 


1 .54406 


• 028571 


i i 
1 I 


O £. Q 
A 6 O 


4 1 . U 


6 • 442 


12.8838 


1.61278 


• 024390 


1 i 


071 

2 7 3 


3 O . U U 


6 . 2U48 


12 .4094 


T C 7 P 7 O 

1.57978 


. 263 1 5 


11 


276 


38.00 


6.2048 


12.4094 


1.57978 


.026315 


11 


280 


3 6.. 


6.0415 


12.0827 


1.55630 


.027777 


11 


283 


27.00 


5.2440 


10.4876 


1.43136 


.037037 


12 


277 


41.00 


6.4420 


12.8838 


1.61278 


.024390 


12 


279 


48.00 


6.9641 


13.9282 


1.68124 


.020833 


12 


287 


26.00 


5.1478 


10.2951 


1.41497 


.038461 



J »• t l 



INPUT DATA FOR BART LETT PROGRAM FROM TRANSFORMATION PROGRAM 



12 



12 



12 



12 



N 


SUM X 


SUM X SO 

Owl 1 A O Vx 


6.00 


211.00 


7619.00 


6.00 


222.00 


8342 .00 


17.00 


716.00 


30754. 00 


10.00 


378.00 


14790.00 


4.0 


124.00 


3882.00 


12.00 


454.00 


17672. 00 


5.00 


222.00 


10028.00 


5 .00 


198.00 


82 74. 00 


5.00 


' 188.00 


7168.00 


11.00 


374.00 


13448.00 


5 .00 


180.00 


6594.00 


3.00 


115.00 


4661 .00 


N 


SUM X 


SUM X SQ 


6.00 


35.70 


214.00 


6.00 


36.67 


225.00 


17.00 


110.71 


724. 50 


10.00 


61.60 


383.00 


4.00 


22.42 


126.00 


12.00 


74. 02 


460 .00 


5 .00 


33.43 


224. 50 


5.00 


31 .42 


200.50 


5 .00 


30.81 


190. 5.0 


11.00 


64. 09 


3 79 • 50 


5.00 


30.13 




3.00 


18.55 


116.50 

X X \J • \J 


N ■ 


SUM X 


SUM X SQ 


6.00 . 


71.40 


8 55.95 

\J *J % J J 


6.00 


73.33 


899 . 9 S 


17.00 


221.43 


2897.89 


10.00 


123.21 


15 31.93 


4.00 


44.84 


503.96 


12.00 


148. 04 


18 39.91 


5.00 


66. 86 


897.97 


5.00 


62 • 84 


801.96 


5.00 


61.62 


761 • 96 


11.00 


128. 18 


1517.91 

X X 1 w s X 


5.00 


60.27 


729 • QA 


3.00 


37.10 


^ U • 7 1 


N 


SUM X 


QiJM y cr\ 


6.00 


9.23 


A *T • £ P 


6.00 


9.38 


U.7n 

J. H . 1 <J 


17.00 


27.54 


44 . AQ 


10.00 


15.69 


?l - 7 n 


4.00 


5.95 


8 « ft 7 


12.00 


18.85 


29.69 


5.00 


8.21 


13.52 


5.00 


7.91 


12.60 


5.00 


7.86 


12.37 


11.00 


16.67 


25.45 


5.00 


7.76 


12.06 


3.00 


4.70 


7.42 



X = RAW SCORE 



X=SQRT(X+.5) 



X = SQRT(X) v +SQRT(X + l) 



X=L0G(X) 



1 
1 
1 
1 
1 
1 
1 
'1 
1 
1 
1 
1 
1 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
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INPUT DATA FOR BART LETT PROGRAM FROM TRANSFORMATION PROGRAM (Cont'd) 



12 



N 


SUMX» 


SUM X SQ 


X=RECIPROCAL OF X 5 


f .00 


.17 


.005393 


5 


6 .00 


.16 


•004611 


5 


1 7 • 


.41 


•010120 


5 


10.00 


.27 


.007899 


5 


4.00 


• 13 


.004276 


5 




•a 'i 

• DC. 


.009261 


5 


5.00 


.11 


•002671 


5 


5.00 


• 13 


.003972 


5 


5.00 


.13 


.003668 


5 


11.00 


.34 


.012297 


5 


5 .00 


• 14 


.004123 


5 


3.00 


.08 


.002508 


5 
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THE BARTLETT TEST FOR HOMOGENEITY OF VARIANCE PROGRAM 

This program computes the Bartlett Chi-Square Test for homogeneity of variance, 
degree of freedom, and the level of significance. In addition to these measures the 
program provides a table containing many of the computational steps in performing the 
Bartlett Test and gives tables values of chi square for the appropriate degrees of freedom 
for the following levels of significance: 0.10, 0.05 , 0,02, 0.01 , and 0.001 . 
FORMAT FOR INPUT CARDS 

C qrc * Columns Information Example 

EDIT I"" 4 Number of groups 0012 

65 Transform Type 1 ,2,3,4, or 5 

CASE 1-10 Number of cases 00000001 3. 

Blank columns may be used in place of leading zeros in the data fields for the 
original data, and for each set of transformed data the input consists of an EDIT card 
and a CASE card for each group. These are followed by the cards containing the values 
for the sums of (X) and sums of (X) squared. The groups of data can follow one another 
directly. 

OPERATING THE PROGRAM 

1 . Place the program in the card reader. 

2. Place the five decks of data cards produced by the transformation program 
on top of the program deck. 

3. Press the RESET button on the console, the LOAD button on the card 
reader, and the START button on the card punch. 
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4. When LOAD DATA is typed, the program will automatically read the data 

and process the problem. 
5o When END OF JOB message and instructions for initiating a new run are 

typed, NON PROCESS RUNOUT for the CARD PUNCH must be pressed 

to obtain all the output cards, 
6. The output cards may be listed directly with an 80-80 board on a 407 

machine. 
PROCESSING TIME 

The approximate computer time necessary to accomplish the Bartlett Program is 
given by the following equation: 

Execution time = 120 + 6K seconds 

where K = number of data cards per transform group. 



/0\ 
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FLOW DIAGRAM FOR BARTLETT PROGRAM 
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I 
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I 



READ VALUES FOR 
SUM X AND X SQUARE 



i 



CONSTRUCT 
BARTLETT TABLE AND 
SUM VALUES 




NO 



YES 



PUNCH HEADER CARDS 



PUNCH 
BARTLETT TABLE 




FINISHED 
WITH THIS GROLfevML 

9 



SOLVE FOR 
CHI SQUARE 



I 



PUNCH CHI SQUARE 
AND 

DEGREES OF FREEDOM 



I 



FIND CHI-SQUARE TABLE ENTRY 



I 



PUNCH CARDS FOR LEVEL OF 
SIGNIFICANCE OF CHI SQUARE 
AND THE CHI-SQUARE TABLE ENTRY 
FOR THE DEGREES OF FREEDOM 
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BART LETT PROGRAM LISTING 



DEFINITION OF SYMBOLS FOLLOW. 



M A T R X = 
SUMDF= 
BIGN = 
SMRCP= 
SUMS 2= 
SM5D2- 
S M D F L = 
NOGRP= 
NUMTR= 
CHIDF= 
KCUNT= 
L E VE L = 
CASES= 
SUMX = 
SUMX2= 
DF 

RE CDF = 
S2 

T LOG = 
DFLOG= 
ONE = 
TWO 

THREE= 
CHI 

LAST = 



SQUARE TABLE. 



SUM MA T I ON 
SUMMAT I ON 
SUMMATION 
SUMMAT I ON 
SUMMAT I ON 
NUMBER OF 



N. ■ 

THE RECIPROCALS 
S ' SQUARE. 

THE SUM OF 
T IMES 



OF D.F 



STORAGE LEVELS FOR CHI 
SUMMATION OF D.F. 
OF 
OF 
OF 

OF THE SUM OF X SQUARE. 
OF D.F. TIMES THE LOG OF S SQUARi 
GROUPS. 
TRANSFORMED DATA TYPE. 
LEVEL OF SIGNIFICANCE. 
A COUNTER FUNCTION. 
LEVEL OF.- SIGNIFICANCE. 
NUMBER OF CASES IN GROUP. 
SUM OF X. 
SUM OF X SQUARE. 

N-l, WHERE N IS NUMBER OF SUBJECTS. 

RECIPROCAL OF D.F. 

S SQUARE. 

LOG OF ; S SQUARE. 

D.F. TIMES LOG' OF S SQUARE. 

FIRST EQUATION IN SOLVING FOR CHI SQUARE. 
SECOND EQUATION IN SOLVING FOR CHI SQUARE. 
THIRD, EQUATION IN SOLVING FOR CHL SQUARE. 
CHI SQUARE. \ 
COUNTER TO FIND END OF ROUTINE. 



C PROGRAM BEGINS. 

C 

DIMENSION T(5»30) 
M A T R X = 1 

C CHI SQUARE TABLE IS READ IN AT THIS POINT. 

1 READ 2 » T ( 1 »M A TRX ) *T(2»MATRX) »T(3»MATRX) »T(4»MATRX) »T( 5 » MA TRX ) 

IF (MATRX-30) 3 »4>4 
3 M A T R X = M A T R X + 1 

GO TO 1 
A CN=. 43429448 

C PROGRAM HEADER (IDENTIFICATION) CARDS TO BE PUNCH NOW. 

PUNCH 5 
PUNCH 6 

PUNCH 7 ' 
C ZEROING SUMMATION AREA NEXT TO BE DONE. 

LAST=1 
8 SUMDF=0. 
B I GN= J • 
SMRCP=0 . 
SUMS2=0. 
SMSD2=0. 
SMDFL = 'J. 

C READ VALUES FOR NUMBER OF GROUPS 

READ 9 > NOGRP » NUMTR 
C ROUTINE FOR , IDENTIFICATION OF TRANSFORM TYPE. 

IF(NUMTR-l) 11 ,12 ♦ 11 



AND TYPE TRANSFORM USED. 
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A07070 
AC707C 
A 7 7 
A 7 7 
A 7 7 
A0707C 
A 7 7 G 
A07070 
A 7 7 
A 7 7 
A07G7C 

■ A 70 70 
A 7 7 
A0707C 
A 7 7 
A 7 7 
A 7 7 C 
AO 70 70 
AO 70 70 
A07070 
A07070 
A07070 
A07070 
A 7 7 
AC7070 
A070 70 
A 7 7 
A07070 

• A07070 
A0707G 
A0707C 
AO 70 7 
A07070 
A0709A 
A07094 
A07406 
A07A74 
A07510 
A07513 
A075A,i 
A075A2 
A07534 
A07566 
A07578 
A07578 
A07602 
A07626 
A07650 
A07674 
A07698 
A 7 7 2 2 
A07746 
A07746 
A07782 
A07782 



mlmmmi 



BARTLETT PROGRAM LISTING (Cont'd) 



1 1 
15 

14 
17 

16 

23 

22 
1 ? 



2 6 



28 



41 



.ND SUM OF X SQUARE, 



PUNCH 16 
GO TO 13 

I P ( MUM FR-2 ) 14 , 15 > 14 
PUNCH 19 
GC TO 13 

I F ( NUMTR-3 ) 16 , 17 , 16 
PUNCH 21 
GO TO 13 

IF(NUMTR-4)22,23,22 
PUNCH 24 
GO TO 13 
PUNCH 25 
CHI DF^NCGRP- 1 
' K0UNT=1 
LEVEL=CHIDF 
CASES=G. 
SUMX=G. 
SUMX2=0. 

READ VALUES FOR N » SUM OF 
READ 27 , CASES ,SUMX , SUMX2 
BEGIN COMPUTATIONS 
DF=CA3ES-1 . 
R E C D F = 1 • / D F 

SUMD2=SUMX2- ( ( SUMX*3UMX ) /CASES ) 
S2 =SUMD2/DF 
T LOGS = ( LOGF ( S2 ) )*CN 
DF LOG =DF*T LOGS 
BIGN = B.IGN+CA3£S 
SUMDF=SUMDF+DF 
5MRCP=SMRCP+RECDF 
SMSD2=SMSD2+SUMD2 
SUMS2=SUMS2+S2 
S M D F L = S M DFL + DFLOG' 
I! FIRST TIME HERE, 
IF(KOUNT-l )28, 29, 28 
PUNCH 31 
PUNCH 32 

PUNCH 33 tKOUNT t CASES. DFtRECDF , SUMD2 , 52 , T LOGS , DF LOG 
DETERMINE IF LAST OF GROUP, 
IF (NOGRP-KOUNT) 34*34,35 
KOUNT=KOUNT+l 

GO BACK AND READ A NEW DATA CARD FOR THIS GROUP, 
GO TO 2 6 

MAJOR EQUATIONS FOR THE TEST, 

ONE= (LOGF ( SMSD2/SUMDF) )*CN 

T W = ( ( S U M D F * N E ) - S M D F L ) * 2 . 3 2 6 

THREE=l.+ (-l./(3.*CHIDF) )* (SMRCPM l./SUMDF ) ) 

CH I = TWO/ THREE 

PUNCH VALUES FOR THE SUMS* CHI 'SQUARE AND LEVEL OF SIGNIFICANT. 
PUNCH 36»BIGN,SUMDF,SMRCP,SMSD2»SUMS2»SMDFL 
PUNCH 37 » CHI , LEVEL 

FOLLOWING PROCEDURE FOR DETERMING IF CHI SQUARE IS SIGNIFICANT, 
IF(T( 1, LEVEL ) -CHI ) 38 ,39 *41 

PUNCH 42 
GO TO 43 



PUNCH TABLE HEADER CARDS, IF NOT PUNCH TABLE. 



A 7 6 5 
A 7 8 6 2 
A 7 8 7 C 
A 7 9 3 3 
A 7 9 5 
A 7 9 d 8 
A08026 
A 8 3 6 
A 8 4 6 
A 8 1 1 4 
AQ6126 
A08134 
A 8 1 4 6 
A 8 1 9 4 
A 8 2 1 8 
A08254 
A 8 2 7 8 
A 8 3 2 
AO 8 3 2 6 
A 8 3 2 6 
AO 8 3 74 
A 8 3 7 4 
A 8 4 1 
A08446 
AC8516 
A 8 5 3 4 
A 8 5 9 
A 8 6 2 6 
A08662 
A08693 
AC8 734 
A0877C 
A 3 8 6 
AC 8 842 
A06842 
A 8 9 1 C 
A08922 
A08934 
A09042 
A09042 
A091 10 
AO 9 I 46 
AO 9 146 
A 9 1 5 4 
A 9 1 5 4 
A092 14 
A09274 
A09406 
A09442 
A09442 
A09526 
A0936^. 
A09562 
A09678 
A 9 6 9 
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BARTLETT PROGRAM LISTING (Cont'd) 



39 

38 
46 

47 

4 5 

5 3 



51 

58 

57 

56 
64 

6 3 

62 
43 



71 



72 



PUNCH 44 
GO TO 43 

IF ( T ( 2 * LEVEL } -CH I )45,46,47 

PUNCH 48 
GO TO 43 
PUNCH 49 
GO TO 43 

IF(T(3»LEVEL)-CHI ) 5 1,52*53 

PUNCH . 54 
GO TO 4 3 
PUNCH 35 
GO TO 43 

IF(T(4»LEVEL)-CHI)56»57,58 

PUNCH 59 
GO TO 4 3 
PUNCH 61 
GO TO 43 

IF(T( 5 » LEVEL) -CHI ) 62 ,63 ,64 

PUNCH 65 
GO TO 43 
PUNCH 66 
GO TO 43 
PUNCH 67 
PUNCH 68 

PUNCH 69, T(l, LEVEL) ,T(2,LEVEL) 

DETERMINE IF THE JOB IS DONE. 

IF ( LAST-5 ) 71 ,72 ,72 

LAST=LAST+1 

GO TO 8 

PRINT 73 

PAUSE 

GO TO 4 



,T(3,LEVEL) ,T(4,LEVEL) ,T(5,LEVEL) 
IF FINISHED TYPE MESSAGE. 



010, 3X4H.001 ) 



C 

C THE FOLLOWING CARDS ARE FOR FORMAT OF THE PROGRAM ONLY 

C 

9 FORMAT ( 14,59X12) 

2 7 FORM AT ( F10.0 , 1XF10.0 , 1XF10.0 ) 

68FORMAT ( 5GHLEVEL OF SIGNIFICANCE .100 .050 .020 

69FORMAT ( 22HCHI SQUARE TABLE ENTR Y * 5 F7 . 3 / ) 

31FORMATI5H CAS E , 2 5X8HSUM X ( I ) , 5 X4HS ( I ) , 4X 8HLOG S ( I ) , 1X13H ( N-l ) LOG S(I)) 

3 2 FORM AT (4H NO , 3X 1HN » 3X4HD . F . , 3 X6H1 / D . F . , 7X 2HSQ ♦ 1 OX 2H SO » 8X 2HSQ , 9X 2 HSQ / ) 

3 3 FORM AT ( I5,2F5.0,F10.5,F13.5,3F11.5) 

36FORMAT ( /5HSUMS , 2 F5 . , F 10 . 5 , F 1 3 . 5 , F 1 1 . 5 , 1 1XF 1 1 . 5 / ) 

3 7 FOR M AT ( 15X11HCHI SQUARE=F 10 . 3 , 5X20H DEGREES OF FREEDOM= 14/) 
2FORMAT ( 5F7.3 ) 

5FORMAT( 41 H BARTLETT TEST FOR HOMOGENEITY OF VARIANCE) 
42FORMAT ( 20X23HNOT SIGNIFICANT AT .100/) 
4'4FORMAT(20X19HSIGNIF ICANT AT .100/) 



48 FORMAT ( 20X19HS I GN I F I CANT 

4 9F0RMAT ( 20X3 3HS I GN I F I CANT 

5 4FORMAT( 20X33HS I GN I F I C ANT 
5 5 FORMAT ( 20X19HS I GN I F I CANT 
5 9 FORM AT ( 20X 3 3HS I GN I F I C AN T 
6 1 FORMAT ( 20X19HS IGNI F I CANT 

6 5 FORMA T ( 20X33hS I GN I F I CANT 



AT .050/) 

BETWEEN .100 AND .050/) 
BETWEEN .0 50 AND .020 / ) 
AT .020/) 

BETWEEN .0 20 AND .010 / ) 
AT .010/ ) 

BETWEEN .010 AND .001/) 



A09698 

A 9 71 

A09718 

A09834 

A 9 8 4 6 

A09854 

A09866 

A 9 8 7 4 

4 9 9 9 

A 1 2 

A I 1 

A 1 2 2 

A1C030 

A10146 

A 1 1 5 8 

A 10 166 

A1017S 

A 1 1 8 6 

A 103 2 

A10314 

A 1 3 2 2 

A 103 3 4 

A10342 

A 103 5 4 

A10366 

A10678 

A10678 

A10746 

A10782 

A10790 

A 108 2 

A10814 

A10622 

A10822 

A 1 8 2 2 

A10822 

A10856 

A10902 

A 1104-8 

A11146 

A11302 

A11476 

A11534 

A11616 

A11738 

A11780 

Al 1886 

A 11968 

A12C42 

A121 16 

A12218 

A12320 

A12394 

A12496 

A12570 
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BARTLETT PROGRAM LISTING (Cont'd) 



66F0RMAT (20X1 9HS I GN I F I CAN T AT .001/) 
O7F0RMAT ( 20X12H6EYOND .001/ ) 

5 F R M AT ( 3 7 1 i R L F E R A N C E EDWARDS REV.. ED., P.125-12*/) 

7F0RMAT ( 5CHPR0GRAMMED bY R.C. IRONS SCHAVMED, Pp NmACOL A , Fl l / 

1 6F0RMAT ( 2SHDATA FROM RAW SCORES USED/) ^EavmCClAjTLm,/ 

19FCRMATUGHDATA FROM 5GR T ( X+ • 5 ) TRANSFORMATION USED / ) 

;4F,°P^!^P ATA FR ° M S ^(X> + 5QRT(X + 1> TRANSFORMATION USED/) 
2 4 F U R M A T ( 3 6 H DATA FROM LOG ( X ) TRANSFORMATION ' V) 

2 5 F C ; R M A T ( 3 H D A. T A FROM RECIPROCAL OF X USED/) 
73HORMAT(41HJOD COMPLETED, PUSH START TO BEGIN AGAIN.//) 

C END OF PROGRAM. 

C 

END 



A12672 
A 1 2 7 4 6 
A 1 2806 
A 1 2 9 I 
A 1 3 C 4 
A13120 
A 13 2 3 
A 1 3 3 3 4 
A 1 3 4 5 6 
A 1 3 346 
A 1 366^ 
A 1 366^ 
A 1 3 6 6 2 
A 1 3 6 6 2 
1 7 9 
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BART LETT PROGRAM SYMBOL TABLE 



A D D R F ^ S F S 


NAM? 


ft T MFN ^ T DM 


C T A T F 


LUL 






CTV C" 1 A A T T M /" A 

r 1 a r LUA 1 i NG A 


19999 


S I M 












A 

A 


19 9 6 9 


S I NF 












A 
A 


19 9 7 9 


COS 












A 
M 


19 969 


COSF 












A 


19 9 5 9 


ATAN 












A 


19949 


ATANF 












A 


19 9 3 9 


EXP 












A 


19929 


. EXPF 












A 


19919 


LOG 












A 


19909 


LQGF 












A 


19899 


SORT 












A 


19889 


SQRTF 












A 


19879 


SIGN 












A 


19 869 


SIGNF 












A 


19 8 5 9 


ABS 












A 


19 8 4 9 


ABSF 












A 


19 8 3 9 


RDNM 












A 


19829 


RDNMF 












A 


19819 18329 


T 


0005 0030 










A 


18319 


MATRX 












A 


183C9 














0001- A 


18299 






0001 


07094 






A 


18289 










0002 


11738 


A 


18 2 7 9 














0030- A 


13269 














000 A 


18259 






0003 


7474 






A 


18249 






0004 


07518 






A 


18 2 3 9 


CN 












A 


18229 














4^4? 9448 ftf) A 


18219 










0005 


11780 


A 


18 2 9 










0006 


12 806 

1 C. u v u 


A 


18199 










00 7 

\J v \J f 


lu71U 


A 
A 


18189 


LAST 












A 


18 179 






0008 

\J \J \J \J 


7 A n ? 






A 
A 


18169 


SUMDF 












A 


18159 














00000000 99- A 


18149 


B I-GN 












A 
r\ 


1813 9 


SMRCP 












A 


13129 


SUMS 2 












A 


18119 


SMSD2 












A 


1810 9 


SMDFL 












A 


18099 










000 9 


10822 


A 


18089 


NOGRP 












A 


16 7 9 


NUMTR 












A 


13069 






0011 


07870 






A 


1 O U J y 






0012 


07850 






A 


18049 










0018 


13040 


A 


18 3 9 






0013 


08146 






A 


18029 














000 2- - A 


18 019 






0014 


07958 






A 


18009 






0015 


07938 






A 


17999 










0019 


13120 


A 


17 9 8 9 














0003- A 


17979 ■ 






0016 


08046 






A 
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BARTLETT PROGRAM SYMBOL TABLE (Cont'd) 



17969 0017 08026 A 

I 7 9 ' 002 1 13230 A 

17 949 0004- A 

17939 0022 G8134 A 

17929 0023 08114 A 

i 79 l 9 0024 13354 A 

I 7909 0025 13456 A 

1789 9 CHIDF A 

17889 KOUNT A 

17879 ' LEVEL A 

1 7 869 0026 08254 A 

17859 CASES . A 

17849 SUMX A 

17639 SUMX2 A 

17829 ' 0027 10856 A 

17819 DF A 

I 7809 . 10000000 01 A 

1 .'7 99 RECDF A 

17789 SUMD2 A 

17779 ' 002 A 

17769 S2 A 

17759 TLOGS A 

17749 001 A 

17739 DFLOG A 

17729 0028 08934 A 

17719 0029 08910 A 

17709 0031 11^146 A 

17699 0032 11302 A 

17689 0033 11476 A 

17679 0034 09154 A 

17669 0035 C9110 A 

1:76 5 9 ONE A 

1.76 49 TWO A 

17639 23026000 01 A 

17629 THREE - A 

17619 30000000 01 A 

176 9 00 5 A 

17599 CHI A 

17589 0036 11534 A 

17579 0037 11616 A 

17569 0038 09718 A 

17559 0039 09698 A 

17549 0041 09678 A 

17539 0042 11886 A 

17529 0043 10354 A . 

17519 0044 11968 A 

17509 0045 09874 A 

17499 0046 09834 A 

17489 0047 09854 A 

17479 0048 12042 A 

17469 0049 12116 A 

17459 0051 10030 A 

17449 0052 10010 A 

17439 0053 09990 A 

17429 0054 12218 A 

23 13 fi Y.*^3 



BART LETT PROGRAM SYMBOL TABLE (Cont'd) 



17419 
1 7409 
17399 
17389 
17379 
17369 
17359 
17349 
1 7339 
1 7 3 2 9 
17 319 
17309 
1 7299 
17289 
17279 
1 7 269 
17259 
17249 



0C55 12320 



0056 
0057 
0058 



0062 
0063 
0064 



0071 
0072 



10186 
10166 
10146 



10342 
10322 
10302 



0059 
0061 



12394 
12496 



10746 
10790 



0065 12570 

0066 12672 

0067 12746 

0068 10902 

0069 11048 



0073 13546 



0005- 



A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 



00128 



24 



137 



CHI-SQUARE TABLE 



2.706 3.841 5.412 6.635 10.83 
4.605 5.991 7.824 9.210 13.82 
6.251 7.815 9.837 11.341 16.27 
7.779 9.488 11.668 13.277 18.46 
9.236 11.070 13.388 15.086 20.52 
10.645 12.592 15.033 16.812 22.46 
12.017 14.067 16.622 18.475 24.32 
13.362 15.507 18.168 20.090 26.12 
14.684 16.919 19.679 21.666 27.88 
15.987 18.307 21.161 23.209 29.59 
17.275 19.675 22.618 24.725 31.26 

18.549 21 .026 24.054 26.217 32.91 

19.812 22.362 25.472 27.688 34.53 
21 .064 23.685 26.873 29.141 36.12 
22.307 24.996 28.259 30.578 37.70 
23.542 26.296 29.633 32.000 39.25 
24.769 27.587 30.995 33.409 40.79 
25.989 28.869 32.346 34.805 42.31 
27.204 30.144 33.687 36.191 43.82 
28.412 31.410 35.020 37.566 45.32 
29.615 32.671 36.343 38.932 46.80 

30.813 33.924 37.659 40.289 48.27 
32.007 35.172 38.968 41.638 49.73 
33.196 36.415 40.270 42.980 51.18 
34.382 37.652 41.566 44.314 52.62 
35.563 38.885 42.856 45.642 54.05 
36.741 40.113 44.140 46.963 55.48 
37.916 41.337 45.419 48.278 56.89 
39.087 42.557 46.693 49.588 58.30 
40.256 43.773 47.962 50.892 59.70 
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BARTLETT PROGRAM OUTPUT 



6ARTLETT TEST FOR HOMOGENEITY OF VARIANCE 
REFERENCE EDWARDS REV, ED., P. 125-129 

PROGRAMMED BY R.C. IRONS SCHAVMED PENSACOL A , FLA 



DATA FROM RAW SCORES USED "... . 

CASE SUM X(I> SU) LOG S.( I ) (N-l)LOG S(I) 

NO N D.F. 1/D.F. SQ SQ SQ SO 



1 


6. 


5. 


.20000 


198.83330 


> 7.76 666 


1 .5995 1 


7.99759 


2 


6. 


5. 


.20000 


• \ 2 8 .0000. 


2 5.60000 


1 .4082 4 


7.04120 


3 


17. 


16. 


.062 50 


5 97 .76500 


'5 7, 36 3.1 


1 . 57241 


25. 1 5856 


4 


10. 


9. 


.11111 


5 1 .60000 


5 5.73333 


1 . 7461 1 


, 15.71503 


5 


4. 


3. 


.333 3 3 


38 .00000 


1 2.66666 


1 .10266 


3.30798 


6 


12. 


11. 


.09 90 


4 9 5.66700 


45.0606? 


1 .65 37Q 


18.19177 


7 


5. 


4. 


.25 00 


171 .20000 


42.80000 


1 . 6 3 1 44 


6 .-2577 


8 


5. 


4. 


• 2 5 


433 . 20000 


108.30000 


2 • 34 6 2 


* . 1 3 « 5 1 


9 


5. 


4. 


.25 000 


99 .2 000 


24. 80000 


] . 3 9 h 4 ' : 


5.57780 


10 


1 1 . 


10. 


• 1 


732.00000 


7 3.20 


1 • 86 4 i 


18.64511 


1 1 


5 . 


4. 


.25000 


. 1 14,00000 


2 8.5 000 


1.45484 


5.81937 


12 


3. 


2. 


. 50000 


2 52 .66670 


126.33335 


2.10 1 5 1 


4 . 2 030 3 


S 


89. 


77. 


2.59785 


3762 .13200 


620. 12096 




1 26. 32 178 






CHI 


SQUARE= 


7.9 58 


DEGREES OF 


FREEDOM= 


11 



NOT SIGNIFICANT AT .100 



LEVEL OF SIGNIFICANCE .100 .050 .020 .010 .001 

CHI SQUARE TABLE ENTRY 17.275 19.675 22.618 24.725 31.260 
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BART LETT PROGRAM OUTPUT (Cont'd) 



DATA FROM SQRKX+.5) TRANSFORMATION USED 



C A S F 








CI JM X ( T ) 


O V 1 / 


1 OC-y C 1 T \ ( Nl 








u . r . 


JL / \J • r . 


CQ 


CQ 


o v>i 




1 


6. 


5. 


.20000 


1 .58500 


.31700 


-.49894 


-2.49470 


2 


6, 


5. 


.20000 


.88518 


.17703 


-.75193 


-3.75969 


3 


17. 


16. 


.06250 


3.51742 


.21983 


-.65789 


-10.52633 


4 


10. 


9. 


.11111 


3 .54400 


.39377 


-.40474 


-3.64273 


t 

D 


Ll 

*T . 


D . 


. O D D D D 




• 1 1 1 7D 


V5UV I 


— C •OD C I 5 


6 


12. 


11. 


.09090 • 


3.41997 


.31090 


-.50737 


-5.58107 


7 


5. 


4. 


.25000 


.98702 


.24675 


-.60773 


-2.43093 


8 


5. 


4. 


.25000 


3.05672 


.76418 


-.11680 


-.46721 


9 


5. 


4. 


.25000 


.64878 


.16219 


-.78996 


-3.15985 


10 


11. 


10. 


. 10000 


6.08836 


.60883 


-.21549 


-2. 1 5499 


11 


5. 


4. 


.25000 


.93662 


.23415 


-.63049 


-2.52198 


12 


3. 


2 • 


.50000 


1 .79917 


.89958 


-.04595 


-.09191 


SUMS 


89. 


77. 


2.59785 


26 .80414 


4.44623 




-39.68417 






CHI 


SQUARE= 


9.386 


DEGREES 


OF FREED0M= 


11 



NOT SIGNIFICANT AT .100 



LEVEL OF SIGNIFICANCE .100 .050 .020 .010 .001 
CHI SQUARE TABLE ENTRY 17.275 19.675 22.618 24.725 31.260 
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BART LETT PROGRAM OUTPUT (Cont'd) 



DATA FROM SQRT ( X ) + SQR T ( X+ 1 ) TRANSFORMATION USED 



CASE 
NO 



D.F. 



1/D.F. 



SUM ' X ( I ) 
SQ 



S ( I ) 

SQ 



LOG S ( I ) 
SQ 



( N-l ) LOG S ( I ) 

SQ 



SUMS 



1 


6. 


5. 


.20000 


6.29000 


1.25800 


.09968 


•49840 


2 


6. 


5. 


.20000 


3.73518 


.7470 3 


-.12665 


-.63329 


3 


17. 


16. 


.06250 


' 13.69920 


.8 5620 


-.06742 


-1.07879 


4 


10. 


• 9. 


.11111 


13 .85960 


1.53995 


.18750 


1.68757 


5 


4. 


3. 


.33333 


1 .30360 


.43453 


. -.36197 


-1.0.859 3 


6 


12. 


11. 


.09090 


13.58990 


1.23544 


.09182 


1.01005 


7 


5. 


4. 


.25000 


3.91808 


.97952 


-.00898 


-.03594 


8 


5. 


4. 


. .25000 


12.18688 


3.04672 


.48383 


1.93533 


9 


5. 


4. 


.25000 


2.55512 


.63878 


-.19464 


-♦77§5t 


10 


11. 


10. 


.10000 . 


24.26350 


2.42635 


.38495 


3.84*5 3 


1 1 


5. 


4. 


.25000 


3.46542 


.86635 


-.062 3 


-•24921 


12 


3. 


2. 


.50000 


7.16667 


3.58333 


.55428 


1.10857 


S 


89. 


77. 


2.59785 


106.03315 


17.6122 3 




6.22769 






CHI 


SQUARE= 


9.548 


DEGREES 


OF FREEDOM 3 


11 



NOT SIGNIFICANT AT .100 



LEVEL OF SIGNIFICANCE 



100 



.050 



.020 



.010 



.001 



CHI SQUARE TABLE ENTRY 17.275 19.675 22.618 24.725 31.260 

V 
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HI 
¥¥.Jtt 



BART LETT PROGRAM OUTPUT (Cont'd) 



DATA FROM LOG(X) TRANSFORMATION USED 



CASE 








SUM X ( I ) 


S ( I ) LOG S ( I ) ( N 


- 1 ) L O G S( 


NO. 


N 


D.F. 


1 / D . F . 


SQ ' 


SQ 


SQ 


SQ 


1 


6. 


5. 


.20000 


.05118 


• U 1 (J I D 


1 Q Q Q Q ~2 

— i . y o y o 3 


-9.94917 


2 


6 • 


5 • 


• 2 0000 


• 3 59 3 


.00718 


-2 .14346 


— 1 U . I 1 I 3 Z 


3 


17. 


16. 


.06250 


.07520 


• 00470 


-2.32790 


-37 . 24643 


4 


10 . 


9. 


• 1 1 1 1 1 


.08239 


.00915 


-2.03836 


-18.3 4531 


5 


4. 


3. 


.33333 


.01937 


•00 64 5 


-2.1898 7 


-6.56963 


6 


12. 


1 1 . 


.09090 


.07979 


.00725 


-2 .13943 


-23 • 53376 


7 


5. 


4. 


.25000 


.03918 


•00979 


-2.00899 


-8.03598 


8 


5 • 


4. 


.25000 


.08638 


.02159 


-1 .66564 


-6.66258 


9 


5. 


4. 


.25000 


.01408 


.00 3 52 


-2.45345 


-9.8138 2 


10 


11. 


10. 


.10000 


.18737 


.01873 


-1 .72729 


-17.27293 


1 1 


5. 


4. 


.25000 


.01648 


.00412 


-2 . 3831 


-9.54041 


12 


3. 


2. 


.50000 


.05666 


.02833 


-1 . 54770 


-3.09540 


SUMS 


89. 


77. 


2.59785 


.7440 3 


.13109 




160.78279 






CHI 


SQUARE = 


12 .034 


DEGREES OF 


F REE DOM = 


11 








NOT SIGNIFICANT AT 


.100 






LEVEL 


OF 


SIGNIFICANCE 


100 .050 


.020 .010 


.001 




CHI SGUAR 


E TABLE 


ENTRY 17. 


275 19.675 


22.618 24.725 


31 .260 
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BART LETT PROGRAM OUTPUT (Cont'd) 



DATA FROM RECIPROCAL OF X USED 



SE 








SUM. X ( I ) 


S ( I ) 


LOG S ( I ) ( N 


- 1 ) L G S ( 





N 


D.F. 


1 / D . F . 


SQ 


SO 


SQ 


SQ 


1 


6. 


5 • 


•20000 


.00057 


.00011 


-3.9382 9 


-19.69148 


2 


6. 


5. 


.20000 


•00034 


.00006 


-4.16199 


-20.80995 


3 


17. 


16. 


.06230 


.00023 


.00001 


-4.83907 


-77.42515 


4 


10. 


9. 


.11111 


.00060 


.00006 


-4,1696 2 


-37.52662 


5 


4. 


3. 


.33333 


•00005 


.00001 


-4.76955 


-14.3 0865 


6 


12. 


11. 


.09090 


.00072. 


.00006 


-4.17946 


-45.97406 


7 


5. 


4» 


♦25000 


.00025 


.00006 


-4.20238 


-16.80954 


8 


5. 


A. 


.25000 


.00059 


.00014 


-3.82973 


-15.31895 


9 


5. 


4. 


.25000 


.00028 


.00007 


-4. 14266 


-16.57067 


10 


1 1. 


10. 


.10000 


.00178 


.00017 


-3.74765 


-37.47654 


1 1 


5. 


4. 


.25000 


.00020 


.00005 


-4.29456 


-17.17825 


12 


3. 


2. 


.50000 


.00037 


•00018 


-3.72738 


-7.45476 


IS 


89. 


77. 


2.59785 


.00603 


.00104 




•326.54467 








CHI SQUARE^ 


22.221 


DEGREES 


OF F R E E D M = 


1 1 . 



SIGNIFICANT BETWEEN .050 AND .020 

LEVEL OF SIGNIFICANCE .100 .050' .020 .010 .001 

CHI SQUARE TABLE ENTRY 1 7 . 2 7 5 ' 1 9 . 67 5 22.618 24.725 31 .260 
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A General Function Subprogram 



by M.E. Munroe, University of New Hampshire 

This is a Fortran II function subprogram that accepts X from the main 
program and returns F(X). This single subprogram can be used to yield values 
of any desired function. The function to be computed is controlled by data 
read into the main program. 

The code for describing a function by numerical data is as follows. A 
block of four integers will give instructions to combine to functions in a 
specified way and store the result. The first integer in each block of four 
specifies the combining operation to be performed. The next two specify the 
basic functions (or previously stored results) that are to be combined in this 
way. The fourth integer specifies a label for storage. The specific code 
chosen is this: 





Operations 


Library 
Functions 


1. 


addition 


11. log 


2. 


subtraction 


12. sin 


3. 


multiplication 


13. cos 


h. 


division 


llu exp 




composition 


l£. sqrt 




(f(g(x))] 


16. atan 


6. 


integer 


17. abs 




exponentiation 



Faction Constants Storage 

(7(x) - x] 30 101 - 11S 

21 



Every time a 30 appears there must be an auxiliary entry to indicate what 
constant. Thus, the data consists of a vector of Uk fixed point numbers plus 
another vector of floating point numbers - one for each 30 in the first vector. 



/ 



Illustration: Suppose we want the subprogram to compute 



sinnx + 3* 



5" 



The vector of integers would be as follows, and we indicate at each storage 
stage what is being stored. 

$ 

nx sinnx x 

3 30 21 101 5 12 101 102 6 21 30 103 



yx/ sinnx+3x^ x/sinnx + 3x 

3 30 103 101 1 102 10h 105 5 15 105 106 



5" 



The vector of constants would be 

3.1U5926 5. 3. 
Note that the exponent 5 is read as a floating point number. The subprogram 
will convert it to an integer before exponentiating* 

A listing of the subprogram follows. The idea is to use these code num- 
bers as branching controls by means of IF statements and computed GO TO state- 
ments • 
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C GENERAL FUNCTION SUBPROGRAM 

FUNCTION F<X> 

DIMENSION I (200 ) ,C < 100 ) ,FF( 15) 
COMMON I,C,NI 
C INITIALIZE CONSTANT COUNTER 

KON= 1 

DO 1 00 J=l «NI ,4 
I J= I ( J ) 

C PREPARE FPR FIRST PASS (THROUGH SECOND FUNCTION) 

L = 2 
S = X 

3 M=J+L 

I M= I ( M ) 

C BRANCH FOR FUNCTION* CONSTANT, STORED RESULT 

I F ( I M-30 ) 1 « 4 1 «2 
C BRANCH FOR LIBRARY, IDENTITY FUNCTION 

1 IF( IM-20)4,4,42 
C LIBRARY FUNCTION 

4 K= I M- 1 

C BRANCH TO SPECIFIC LIBRARY FUNCTION 

GO TO (43«44«45, 46*47, 48,49) ,K 
C STORED RESULT 

2 K= IM-1 00 
R=FF(K) 
GO TO 65 

C CONSTANT ' 

41 R=C(KON) 

C RESET CONSTANT COUNTER 

KON=KON+l 

GO TO 65 
C IDENTITY FUNCTION 

42 R = S 

GO TO 65 

C SPECIFIC LIBRARY FUNCTIONS 

43 R=LOGF(S) 
GO TO 65 

44 R=SINF(S> 
GO TO 65 

45 R=C0SF(S) 
GO TO 65 

46 R=EXPF(S) 
GO TO 65 

47 R= SQRTF ( S i 
GO TO 65 

48 R = ATANF ( S ) 
GO TO 65 

49 R=ABSF(S) 



3 



1 4c 



C BRANCH ACCORDING AS THIS IS FIRST OR SECOND PASS 

65 GO TO {66,67) ,L 

C STORE RESULT OF FIRST PASS AS Z 

67 Z=R 

C PREPARE FOR SECOND PASS (THROUGH FIRST FUNCTION) 

L= 1 

C START SECOND PASS UNLESS OPERATION IS COMPOSITION 

I F ( I J-5 ) 3 ♦ 1 1 ,3 
C RESET S FOR COMPOSITION 

1 1 S=Z 
C START SECOND PASS 

GO TO 3 

C AFTER SECOND PASS BRANCH TO OPERATION CALLED FOR 

66 GO TO ( 31 ♦32*33,34 ,35,36) , IJ 

C PERFORM OPERATION AND RECORD RESULT AS F 

31 F = R + Z 

GO TO 70 

32 F=R-Z 

GO TO 70 

33 F=R*Z 

GO TO 70 

34 F=R/Z 

GO TO 70 

35 F = R 

GO TO 70 

36 IZ=Z 
F=R**IZ 

C NOTE STORAGE INSTRUCTIONS 

70 K= I( J+3)~100 
C STORE RESULT AS BOTH FF ( K ) AND AS F 

C IF DO LOOP CONTINUES IT WILL BE CALLED AS FF(K) 

C IF RETURN TO MAIN PROGRAM IT WILL BE CALLED AS F 

100 FF < K ) =F 
RETURN 
END 
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FORTRAN PROGRAMS FOR COMPUTING ELLIPTIC INTEGRALS AND FUNCTIONS 
1. Scope of the Programs 

'Die programs presented in this paper provide subroutines for direct 
computation of the three types of elliptic integrals in so-called "Legendre 
Normal Form". They are 

a. Integrals of the first kind: 

b. Integrals of tlie second kind: 

c. Integrals o£ the third kind: 



Closely associated with the above are the Jacobian elliptic functions, 
which are defined as follows: 
Let 

F(9,k) = u . 
Then 9, the "amplitude" of u, is written as 

9 - am u . 

Similarly sin9 and cos9 or the "sine -amplitude" and "cosine amplitude" of u 
are written 

sin9 = snu 

and 

cos 9 = cnu . 



Hie quantity k is called the modulus, 9 the amplitude and O^tfie parameter. ^ 
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In addition, the quantity /l-k^sin 2 9, known as the "delta-amplitude" is 

introduced and is denoted by dnu. Since 4£ = v ■ = 1/dnu, it follows 

7 M /l-k2sin29 

that ^-[am(u)] * dnu. Thus, three types of integrals in Legendre normal form 
may also be expressed as follows: 

F(9,k) - u;^ 

E(9,k) =/^V^r; 
3.1 ° ^ 



2. Special Values 

When k 8 or 1, the three canonical forms are reducible to elementary 
functions. Specifically, 

a. F(9,o) =» B(9,0) = 9 

b. iiC9,#*,o) = / itoC l hn^x*'ia*i\ oc</; 



= tan9, if OC = 1 

c. F(9,l) » fft (tan9 + sec9) 

d. B(9,l) = sin9 



. 11(9,^*1) h(fan9+S*cB)-%h 



#*> o; oC% l;oCStn94-t; 



2 J K ? 



3. Mathematical Formulation 

The programs presented here are based on a transformation, known as 
Gauss' transformation or sometimes Landen's second transformation. It 
permits each of the three normal integrals to be expressed in terms of 
elementary functions and similar ones with a lesser modulus. Since the same 
transformation may be applied to the new set, and the process continued until 
a modulus of sufficiently small magnitude is obtained, a point is ultimately 
reached where the integrals reduce to element functions as outlined in 
section 2. It is then a simple matter to go backwards and find the desired 
values of the original integrals. The transformation goes as follows: 

a. A new modulus kj is computed from the formula 

k -Ml 
K l l-k« 

where k is known as the complementary modulus. 

b. A new amplitude 9-^ is computed from 

. _ (l+k^sinG 

s inn -i ~ 1 i '< ■ — tb— ■— — — 

1+ /l-k 2 sin 2 9 

c. A new parameter 0(f is computed from 

{7+n 7 / 

where p = ]/l-k 2 /oC^ 

j 

The original integrals, functions of k,9,fl£ , may now be expressed in terms 
of ones with arguments kp e j»0^ > as follows: 



F(9,k) = (l + k ] )F(9 l ,lc i ) 



2 

k sin9cos0 



E(0,k) = Ok»)E(9 k ) - k'F(9 k ) + , ™ : 

11 1 1 1+ /l-k"sin 2 9 



3 



153 




d. Steps a,b,c are repeated with Q,k,0( replaced by e^k^O^ and 
this procedure is continued until at the n-th step, the modulus ls^ is 
essentially 2ero. F(8 N ,k N ), E(9 N ,k N ) and II(8 Nf 0^ f k N ) are then elementary 
functions as given by formulae 2+a, 2b. 



e. From the values of F^y, EC^.y, 11(9^,' y just found, 
equation 3.1 is employed to find F(e N-lf k N-1 ) , E^.k^) , IICVl^N-l 3 



and this process is continued until finally the values of the functions of 

the original arguments are obtained. 

4. Recurrence Formulae 

As an alternative to the above described process, which requires that 

intermediate values of k, OC ,9 be saved, a general recurrence type formula 

for direct computation may be written. This is accomplished by defining 

sequences of numbers R n , T n , X n , Y n , Z n> According to tlie following 
equations: 






T = 







R ri+1 = C 1+ Vl )fc ii 




T n + 1 * < 1+k V V 



4 



15 4 



where 



and 



Z - 7 + v 



"n+1 



1+k' 



sin9 _ 
n+1 



k = k 
o 



sin9 5f/r 
o 



72 



Then if N is a value of n such that k N = 0, 



F(9,k) = R 9 



ri(e,rf*k) = x,^ + - z N 

5. Restrictions on the Use of the Formulae 

The formulae for F and B can be used for all values of k and 9 with 
the exception of the trivial case k = 1. On the other hand, those for II 
can not be universally applied unless is real for each n. Iividentally, 

the initial value 

will be real provided that either 0(^0 or CC y7l > and it is easily shown 
that if these conditions are satisfied by the original values of k and OC^ 
it will always be satisfied by the subsequent values of these quantities. 
Tli is leaves one remaining case, namely 

where the transformation will not work directly. Fortunately, there exists 
the following relationship: 



11(8, C** 2 ) + 11(9/%*,^) » 



5.1 



where 



6 



1, ,~> 



Also since kV<X* ^ 1 > H (9 .k^/p^ ,k^) can be calculated by the previously 
described method, and 11(8, (K. ,k^) found from the above formula. 
6 . Some Aids for Improving the Numerical Accuracy 



Numerous sources of inaccuracy may be inherent in the previously 
described formulae. These will be briefly discussed below. 

a. Subtraction of large but nearly equal quantities. 

This occurs both in the calculation of li and II. In the formulae 
for Li, T and S increase in magnitude but their difference remains finite; 
similarly, in the expression for II, the quantity Y G R - Z R approaches a 
finite limit although both Y n fl n and Z n increase. The inaccuracy which 
might result due to loss of significant figures may be avoided by reformulating 
the expressions directly in terms of the differences. 

b. Inaccuracies in Computing Q^j from Sin9^ # 



calculated. If sinQ^ is close to zero or one, inaccurate values of cosQ^ 
will result if the latter is computed from the relation: 



to avoid this difficulty, cos9 n+ i should be computed directly from • i n9 ri 
and cos9 n , since the initial of those quantities may be computed with 
reasonable precision, and the final results will accordingly be more accurate. 
A suitable formula for accomplishing this is the following* 



Most computers find inverse trigonometric functions by means of an 



inverse tangent subroutine. .This requires that both sin9^ and cos9^ be 





7 
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Unreasonably large numbers may also occur if the initial value m~ -p [ s 
small, since this quantity appears in the denominator in Eq. 3.1. For this 
reason it may be preferable to avoid using the direct method when C( is 
near to k^, and this may be accomplished by employing Eq. 3.1 only when OC^O 
orp( anc * us i n g tne transformation to the parameter "fx '/OC* otherwise. 
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append i:; A 

S'.i;;R;)UT I Nii CALCULATES THE ELLIPTIC I NTEGRALg* F ( SS.'C, Ti I ) AND E(SSK,TH) 
MfjOULUS- TH«AMPL I TUDE E^ACCURACY 

1 0NLY r(SSI.( ; , Til) IS C0MPUTED , IND«2 F(SSK,Tlf) AND E(SSK,TH) ARE O01IPUT 

. SUi5R0UT I NE ELL I P (SSfC/TH, I ND, E., M, EK) 
P1-1 .57Q79632679W5 
TH1.«Pt*'TH/90.0 
I F(SSK-1 .0)8,9,0 
9 IF(TH-90.0)12, 13, 12 

12 Sil-SINF(THI) 

A»(1 ,0-hSN)/(1 .Q-SN) 
3K=*Q.5 vV L0GF(A) 

G0 T0 30 

13 G0 T0 ( 14, 1 5) , I MD 
15 3K-9.9999999E+90 

EK-1 .0 
G0 T0 30 

14 PRINT 100, SSK 
3K-9.9999999E+93 
G0 T0 30 

IF(TM-90.)5,6,5 

6 SN«1 .0 
CM -0.0 
G0 T0 7 

5 SN»SINF(TH1.) 
C:i=C0SF(TH1 ) 

7 SK-SSK 
R=1 .0 
T-1.Q 
0-0.0 
S=*1 .0 

D«SQRTF(1.-SK*SK*SN*SN) 
3 SK2=SK*SK 

SKP»SQRTF(1.0-SK2) 
G0 T0 (11,10), IND 

1 Q -0 + ( T* 5 N* C N* SK2/(D+1.0)) 

1 1 sx«(i.-skp)/(i.+s:<p) 

X«(1.0*SKP}/(1.'0+D}- 

SM=X*SN 

U»SQRTF(1 .-S!<*SK*SN*SN) 
7.»(1.+SK*SN*SN)/D 

S=(S+S-SK2*T)/(1.0+SKP) 
T«(1.0+SKP)*T 
R=(l ,+SK)*R 
IF(SK2-E)V,3 
h IF(SN-CN)22 r 22>2^ 
22 P=ATANF(SN/CN) 

G0 T0 23 
2h P«P1-ATANF(CN/SN)- 
23 G0 T0 (25,26), IND 

26 EK»P*S+0 J r 4 {) 

25 BK=P*R J ° 3 

30 RETURN 

100 F0RMAT (2HK( fh. 1 , 1 6H) I S N0T DEFINED) jj / q 

FMD " / 



APPENDIX B 



C F0RTRAN II PR0GRAM THAT CALCULATES ELLIPTIC INTEGRALS 0F THE 

C THIRD KIND. INPUT; SK=M0DULUS, 0=AMPLI TUDE IN RADIANS 

C AND PARAMETER (AL) -ALPHA SQUARED, 

c Pl = 



1 ACCEPT 1OO,SK,0,AL,E 

PI -1.570796326794875 
ALN-AL 

SKN-SQRTF(SK) 
SN=SINF(0) 
CN=C0SF(0) 
R=1 .0 
S=1.0 
T=0.0 
Q-0.0 

TS1-AL-SKN 
TS2-ALN-1.0 
TS3=SN-CN 
IF(AL)35,40,3 

3 IF(TS1)4,4,35 

4 ALN-SK/AL 
TS2-ALN-1.0 
T3=1 ,-ALN 
T4-1.-SK/ALN 
IF(TS2)43 45 44 

43 U-SQRTF( (T3*T4)/( 1 .-SK*SN*SN') ) 

G0 T0 45 

44 U-SQRTF( ( (ALN-1 . )*( 1 .-(SK/ALN) ) )/( 1 .-SK*SN*SN) ) 

45 IF(TS2)9,14,15 

9 C=SQRTF(T3) 
I F(TS3) 10,10,11 

10 T1=ATANF(U*(SN/CN)) 
T2=ATANF(C*(SN/CN)) 

1 3 C0RR=( T1-T2) /SQRTF ( T3*T4 ) 
G0 T0 5 

11 T1=P1-ATANF(CN/(U*SN)) 
T2»P1-ATANF(CN/(C*SN)} 
G0 T0 13 

14 T1=SQRTF(1.-SK) 
T2=SQRTF(1.-SK*SN*SN) 
C0RR=(-SK*SN*CN)/((T1*T2)*(T1+T2)) 
G0 T0 5 

15 T1-(U*SN+CN)/(SQRTF(ALN-1 .0)*SN+CN) 
T2=(1.-SK*SN*SN)/(1.-(SK/ALN)*(SN*SN)) 
C0RR=( . 5*L0GF(T1*T1*T2) )/(SQRTF( (ALN-1 . )*( 1 .-SK/ALN) ) ) 

5 P2-SQRTF(1.-(SKN*SKN)/ALN) 

2 SK2=SKN*SKN 
P=P2 

SKP=SQRTF(1.-SK2) , a . 

AL1 -ALN 1 b V 

I F(TS3) 16, 16, 17 

16 SAL2=SN/CN . 
G0 T0 18 V><£/ /* 



17 SAL2.CN/SN 

18 SN»( ( 1 . +SKP)*SN)/( 1 ,+SQRTF(1 .-SK2*SN*SN) ) 
SKN-(1.-SKP)/(1.+SKP) 
TD«SQRTF(1.-SKN*SKN*SN*SN) 
CN«((1.+SKN*SN*SN)/TD)*CN 
R-R*(1.+SKN) 

P2«SQRTF(1.-SKN*m.-P )/(1.+P ))) 
ALN«ALN*((1.+P )/(1.4.SKP))**2 
IF(AL1-1.0)19,22,23 

19 T1-SQRTF0.-AL1) 
IF(TS3)20,20,21 

20 HN«(2.0/T1)*(ATANF(T1*SAL2)-ATANF(SQRTF(1.-ALN)*(SN/CN))) 
G0 T0 24 

21 C-SQRTF(I.-ALN) 
HN«(2./T1)*((P1-ATANF(SAL2/T1))-(P1-ATANF(CN/(C*SN)))) 
G0 T0 24 

22 T2«SKN*SKN 
T3-SQRTF(1.-T2) 
T4«SQRTF(1.-T2*SN*SN) 

HN«(-2.*T2*( 1 .+SKN)*SN*CN)/( (T3*T4)*(T3+T4) ) 
G0 T0 24 

23 T1-(CN-fSQRTF(ALN-1.)*SN)**2*(1.-((SKN*SKN)/ALN)*(SN*SN)) 
T2-(CN*SQRTF(1 # -SKN*SKN*SN*SN)+P2*SQRTF(ALN-1 .)^SN)^2 
HN«L0GF(T2/T1)/$QRTF(AL1-1.) 

24 T1-1.+SKN 
T-T+(HN/P )*S 
Q«T1*(Q+({P -1J/P )*$) 
S-((2;*Tt}/P )*s 
IF(SKN-E)25,25,2 

25 IF(SN-CN)26, 26.27 

26 0N-ATANF(SN/CN) ^ 
G0 T0 28 Q 

27 0N»P1-ATANF(CN/SN) 

28 PI3AR-0N*Q-T 
IF(AL)31,40,29 

29 IF(TS1)30. 30.31 

30 PI«0N*R-PIBAR+C0RR 
G0 T0 32 

31 PUPIBAR+(G0/RH0) 

32 PRINT 101, PI 
G0 T0 1 

35 RH0»SQRTF(1.-SK/AL) 
IF(AL~1.0)36,39,42 

36 C-SQRTF(I.-AL) 
IF(SN-CN)37,37,38 

37 G0»ATANF(C*(SN/CN))/C 
G0 T0 5 

38 G0«(P1-ATANF(CN/(C*SN)))/C 
G0 T0 5 

39 IF(CN-E)40,40,4l 

40 PRINT 1O3,ALN,0 
G0 T0 1 

41 G0-SN/CN 
G0 T0 5 

42 C»SQRTF(AL-1.) 

T1-(CN-fC*SN)/(CN--C*SN) . , 

G T «OT(T,))/C H ' ! C 

G0 T0 5 

100 F0RMAT(E17.1O) 

103 F0RMAT (3OHPR0BLEM N0T DEFINED F0R AHPHA-F16.10 10HAND THETA=F1 6.9) 

101 |IggMAT(3HPI- F15.10) ■/ 
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This paper is about a program for convolution of two complex 
discrete functions. We will discuss uses of complex convolution, de- 
scribe the experimental problem which led us to develop the- program, 
and then will present the technique itself. 

The convolution process is used in the analysis of several engi- 
neering problems. In electrical signal processing by networks, the 
circuit output equals the complex convolution of the input time function 
with the circuit impulse response function. In schlieren optics, light 
passing through transparent media undergoes phase diffraction instead 
of amplitude diffraction, and may be analyzed by complex convolution. 

Our experimental system, a schlieren system, is a special case of 
a coherent optical processing system, and it uses the phenomenon of 
phase diffraction for a rather unique purpose. 

Figure 1 is a diagram of the experimental setup. If monochromatic 
light is passed through a grooved transparent film and is partially 
blocked in the diffraction plane, it will then project a pattern on the 
image screen. The image intensity varies (in a manner depending upon 
the type of operation at the diffraction plane) with the groove depth 
and slope. The variations of light intensity on the screen present the 
information that is stored on the film. If no blocking of the light 
takes place in the diffraction plane, then there will be no variation of 
light intensity on the image screen. We desire to find out what kind of 
blocking at the diffraction plane produces the best results. 



1 6 3 | 
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It happens that Fourier Transform relations exist between the 
object, diffraction, and image planes. It also happens that the light 
amplitude at the object plane can be represented as a multiple product. 
If -we use convolution theorem that the Fourier Transform of -a product 
is equal to the convolution of the Fourier transforms of the individual 
functions, and if we know the individual transforms of the factors in 
the product, we can easily compute the diffraction pattern. Hence, a 
major part of our computer simulation of the optical display system was 
the development of an efficient technique for the convolution of two or 
more complex discrete functions. 




FIGURE 1 
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Because the functions we convolved have real and imaginary parts, 
the following series of equations develop the model used for our complex 
convolution. 



If p 9 r /"^ are complex functions of x, the distance from the center 
/ of the diffraction plane. 

F t M = awe-''*™ 



Let 



^*U)£- cli(J) 



Then 



Since 



Then 



(\ I Fufrfl -0Q/y/^cos^ ~^a £ ^s/ n sin^ 
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Thus, complex convolution may "be expressed in terms of four real 
convolutions. The following oper'ations represent part Of our simu- 
lation and, for various Reasons, they faere carried out "by several com- 
puter programs instead of One. At the end of this #aper is a Fortran 
program for the simple convolution performed in part b. 

(a) Prepare four tables. 

(1) A VS acc-Sc< 
2 x vs a Sin c& 
(3 x vs h- ays x> 
W x vs b Sin g> 

(b) Convolve 

(DM3) * 

(2) *(3) ^.JL^Cjc) 

(c) Combine into real and imaginary parts. 

dkx) •= J, 60-»- lyC-x). 

(d) The amplitude of the m^* 1 point of the diffraction pattern is 



(e) The phase of the m** 1 point of the diffraction pattern is 



, N -7- ./ r dOi) S 
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In addition to possible uses in your own computing group, this 
technique offers interesting opportunities for university physics and 
electrical engineering labs. More and more universities and colleges 
are teaching their students how to program and are giving their student 
machine time. Complicated diffraction patterns could be predicted 
before being observed in the physics labs, as -well as schlieren optics. 
Computer calculations could replace the electrical engineering students 
frequent use of the graphical technique for complex convolution. 

In closing, we present the Fortran program for the basic convo- 
lution of two discrete functions that is the fundamental unit of our 
complex convolution. It is offered as an example of a technique to be 
used when the variable (m in our case) can be restricted to integer 
values. Then each F(m) can be stored in location m for efficiency of 
storage. 



C CONVOLUTION OF TWO DISCRETE FUNCTIONS 

c j«s#l i ebm an , General electric, ithaca,n.Y4 

DIMENSION Ml (201 ) ,M2(201 > ,Al (201 ) ,A2(20 1 > ,A1A2(402> 
1 READ 95 

PUNCH 95 

READ 90, Nl 

DO 10 1=1, Nl 

READ 90 « M 1 ( I ) » A 1 ( I ) 
^10 Ml ( I )=M1 ( I ) + lOO 

READ 90, N2 

DO 20 1=1 ,N2 

READ 90, M2( I ) » A2( I ) 
^ 20 M2( I )=M2( I )+100 

DO 30 Ksl,402 
30 A1A2(K)=0. 

DO 40 1=1 ,201 

DO 40 J=l ,201 

K=M1 ( I ) +M2 ( J ) 
40 A1A2(K)=A1A2(K)+A1 ( I ) *A2 ( J) 

DO 60 K=l ,402 

IF (A1A2(K)) 50,60,50 
50 J=K-200 

PUNCH 90,J,A1A2(K) 
60 CONTINUE 

PAUSE 

GO TO 1 

90 FORMAT ( 1 4X ,16,1 4X , F6«4 ) 

95 FORMAT (49H 

END 

* THESE STEPS WERE MERELY MANIPULATIONS TO AVOH) 
NEGATIVE INDICES, 
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A COMPUTER APPROACH TO THE ANALYSIS OF GAMMA SPECTRA 
BY THE METHOD OF CHARACTERISTIC ENERGY REGIONS 

by 

WENDELL E« CARR 

The simultaneous equations method-^ for gamma spectrum analysis 
utilizing characteristic energy regions has been programmed for the 
IBM 1620 MONITOR I System — a combined operating and programming system. 
The method uses an IBM 1620 Computer (with a 40,000 digit memory, auto- 
matic divide, and indirect addressing), a 1622 Card Read-Punch Unit, a 
1621 Paper Tape Reader, and two 1311 disk storage drives. 

The method has been mainly applied to environmental samples, such 

as milk, food, air filters, etc. The. gamma spectrum is obtained using 

a sodium-iodide crystal and a multi-channel gamma spectrometer. A 

spectrometer is calibrated so that counts from the sample are stored in 

channels on the basis of their energy level; counts of equivalent energy 

level are recorded in the same channel. The principles of multi-channel 

gamma spectroscopy have been fully described by many authors; one good 

2/ 

summary is that of Crouthamel.— The paper tape output from the spectro- 
meter includes the channel numbers (energy levels) and the total counts 
(radioactivity) in each channel. The channels and counts comprise the 
gamma spectrum. 

The essential problem in gamma spectrum analysis is to determine 
which counts are due to which nuclides and ultimately the content of each 

l 
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nuclide present in one given sample. The counts in any one channel 
are usually due to several nuclides* For example, channels 32 - AO 
(.01 MEV per channel) may be the characteristic region for 1-131, but 
other nuclides also contribute to the counts in this region. How many 
counts in the 1-131 region are due only to 1-131? One method for solving 
this problem of spectral interference among the nuclides is the simulta- 
neous equations method. 
Description of Method 

Standard solutions of known activity containing only one nuclide are 
prepared and counted for each of the nuclides of interest. In the present 
treatment it is assumed that the identity of the pertinent nuclides is 
known, and furthermore, that the gamma spectrum of each standard is obtained 
under the same conditions as the sample spectrunu i.e.^same crystal., same 
geometry/ etc . 

The equations are set up by examining the standards. Since each 
standard contains only one nuclide, there is no interference problem (except 
background, which is subtracted out). For example, a Cs-137 standard has 
no counts from other nuclides in the Cs-137 region (channels 60 - 72), so 
that the counts there are all due to Cs-137. However, the Cs-137 causes 
counts in other channels, and the interference in other nuclide regions 
can be calculated as a fraction of the counts in channels 60 - 72. Suppose 
there are 100 counts in the Cs-137 region and 30 counts in the 1-131 region; 
this means that in any sample, whatever the number of counts in the Cs-137 
region that are due to Cs-137, .300 of that number will be in the 1-131 
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region as a result of the Cs-137. By examining other standards, the 
fractional contribution to the 1-131 region from each of the other nuclides 
can be determined. 

In the system of equations there is one equation for each nuclide; 
this gives the counts in the nuclide region as a sum of the fractional 
contributions from the other nuclides. The 1-131 equation might be: 



R 



1.000 I 



,300 Cs + - - - 



where 3^ is the counts in the 1-131 region, I is the counts in the 1-131 
region due only to 1-131, Cs is the counts in the Cs-137 region due only 
to Cs-137, - - For any sample, the counts in each region (e.g., Ij 
can be found by simply adding the counts in each contributing channel. 
This leaves I, Cs, - - - as the unknowns; the solution to the system of ' 
equations will yield these and hence will be a solution to the gamma 
spectrum analysis problem. 

For N nuclides, the system of N equations could be written in 

•3/ 

matrix notation- -as: 



X. 



1>1 



1,2 
k 2,2 



-•- — A 



\l V2 



1, N 

2, N 



N,N 



'N 



or • X - A Z 

In practice, counts per minute rather than counts are used so that 
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is the gross* counts per minute in region i 

Z. is the true* counts per minute of nuclide i 
i 

A . . is the fraction of Z. which will be found in region i 
ij j 

The equations are usually solved explicitly for Z^, Z^» - - Z^ by 
multiplying both sides of the matrix equation by the inverse of A: 

a""Sc * z 

The Programs 

Three programs execute the method. The first program — the Set-Up 
Program sets up the simultaneous equations describing the spectral 
interference among the nuclides (any number up to and including 18) , 
solves the equations by the inverted matrix method, and calculates the 
factors needed for each nuclide to convert net counts per minute to pico- 
curies per unit. Input to the Set -Up Program includes: 

1. A standard spectrum with indicative information such as the date 
counted, counting duration, etc., for each nuclide. 

2. The channels to be used for each nuclide region. 

3. The volume or weight of the samples which will be analyzed with the 
inverted matrix. This will be used to calculate the conversion factors 

Output from the Set -Up Program includes:. 

1. The original matrix of the coefficients in the simultaneous equatiov.s. 

2. The inverted matrix which is the solution to the simultaneous equations 
3* Conversion factors for each nuclide. 

The computer group maintains a library of the output from the Set-Up 
Program for all the stations which it serves. The second program the 

'* "Gross" refers to the total counts per minute in a nuclide energy region 
(with the background subtracted out) . "True" refers to that portion of 
of the gross counts per minute in the nuclide energy region which are 
due only to the particular nuclide. 
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Store Program — writes this library on magnetic disk auxiliary storage: 
a disk pack on an IBM 1311 Disk Storage Drive. The Write Addresses 
Routine, part of the MONITOR Disk Utility Program, protects the library 
with read-only flags i 

The third program the Analysis Program — analyzes the gamma 
spectrum, obtained by counting an environmental sample, by using the 
library stored on a disk pack. The station number, matrix code, and 
analyzer number in the sample indicative determine a unique inverted 
matrix and set of conversion factors with Which to analyze the sample. 
The matrix code specifies the particular combination of nuclides as well 
as the geometry. For example, for a specific geometry there could be one 
code for milk samples (4 nuclides) and another for food samples (8 nuclides 
or more)'* The output from this program is the concentration of each 
nuclide in the sample together with the associated error in this determination. 

The concentrations are corrected for decay by a table-look-up method. 
The table of correction factors is included in the library. 

An error is calculated for each concentration at the 95% confidence 
level based on the counting errors and the propagation of these errors 
due to subsequent calculations. Since the counts have a Poisson distri- 
bution which can be approximated by a normal distribution, there is a 
0.95 probability that the observed value plus or minus two standard 
deviations will include the true value. Therefore, the counting errors 
are calculated as: 
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S is the standard deviation 

N . is the counting rate of the sample plus background 
t^^ is tlie time counted for the sample plus background 

is the counting rate of the background 
t^ is the time counted for the background — ^ 

The propagation of the counting errors is calculated by applying the 
general propagation of error formula: 

v = V ( E *a) 2 + 2 

where Z * f (X, Y, - - -)j E x is the error in X, E y is the error in Y, - ; 

E is the error in Z and is the same type of error as E v> E„, - - ^ For 
« X Y 

example, if E x> E^, are 2S errors, then will also be a 2S error*. 

The general form of the equation giving the true counts per minute of 
nuclide Z in terms of the gross counts per minute in regions X, Y,- — - is 

Z = aX+bY+ , 

where a, b, - - - are considered to be constant coefficients. For this 
special case the general propagation of error formula reduces to 

E z = V( aE x) 2 + ■"(***)■ + --"»' 

where E^,, E^> - - - are the 2S counting errors* Multiplying Z by a 
factor k to convert from counts per minute to picocuries per unit multi- 
plies the error by k also, so that the final error is 

E kZ - k E z 



Output from the Analysis Program is punched on cards and consists 
of the activity of each nuclide and the associated error in picocuries 
per unit of volume or weight. These cards are listed on the IBM 407. 
Spectrum Verification 

A special routine in both the Set-Up and Analysis Programs inspects • 
the gamma spectrum and indicative for invalid characters in the paper tape 
by doing a simple multiplication with each digit after the tape has been 
read into memory. An invalid character will cause a CHECK STOP, and the 
operator must manually branch to a routine' which will dump on the typewriter: 

1. Indicative for the spectrum 

2. Number of the digit which is invalid, e.g., 31st, 50th, etc. 

3. The invalid character preceded by other digits. 

th 

Another routine in both programs affirms that the N channel in the 
spectrum is numbered correctly, since if a digit has been dropped or 
added, calculations will be meaningless. 

Language 

All these programs are written in SPS II-D, although the Set -Up Program 
uses a subprogram written in FORTRAN II-D to invert the matrix. 
Application 

The system of programs described here is being used by the Division of 
Radiological Health, United States Public Health Service, to analyze 
environmental samples. Samples are collected by State and local health 
department personnel under the nationwide networks of the Public Health 
Service and are shipped to Division of Radiological Health regional labora- 
tories for counting. Gamma spectral data are obtained at the laboratories - 
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and sent to the Data Processing and Computations Section for computer 
analysis. The resultant activity concentrations are used by other 
units in the PHS to assess levels of radiation in specific media and 
in the environment. 
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A MULTIPLE LINE KEYWORD IN CONTEXT PROGRAM 



The purpose of this program is to perform a keyword (or 
keyphrase) in context analysis on a multiple line (card) abstract, 
paragraph, or magazine article. The program will accept this key- 
punched information and* 

1) Rearrange it in core according to an output format 
specified by the user. 

2) Cross-reference it by keywords or phrases chosen by 
the user. These keywords need not appear in the 
abstract itself, but may be added by means of a key- 
word, or asterisk card, that immediately follows the 
abstract* 

3) Produce the following output, once for each keyword 
selected. 

a) A keyword or phrase title card. 
' b) The original abstract rearranged to an output 
format selected by the user. 

c) A reference card, containing information per- 
taining to the abstract's source, location, etc. 
This information will come from a similar input 
card. 

d) A blank card, to separate adjacent, cross-refer- 
enced abstracts. 



Four identification fields appearing on the right hand 
side of every output card enable the user to perform an alphameric 
merge of the cards with the output from other runs. 

A sample input-output is attached on pages 2 and 3» 

Further information may be obtained by requesting a write- 
up of the program from the 1620 Users Group. The program number is 
10.3.032. 



TJSthsp 
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- SAMPLE INPUT - /f ^ 

REVISEDZSPECIFICATIONS BEING PREPARED BY THEZA MER I CAN CONCRETE I NST I TUTE0092430 1 
WILL BRING THE DESIGN OFZTALL CONCRETE CH I MNE YSO I NTO AGREEMENT WITH THE00924302 
LATEST PRINCIPLES FORZSEISMIC AND WIND FORCESO ♦ AND WILL INCLUDE GU I DANCE00924303 
FOR PROTECTION AGA I NSTZCORROS I ON .ZCIRCULAR ST I FFENERSOSHOULD BE USED WH00924304 
EN NECESSARY TO ASSURE A RESONANT WIND VELOCITY WELL ABOVE THE MAXIMUM T00924305 
HAT WILL OCCUR. 00924306 
*V I BRAT IONZSTACKSZDAMP I NG CHARACTERISTICS 00924307 
CIVIL ENGINEERING, FEB. 1964* PP.32-35 6400924308 



- SORTED OUTPUT - 



AMERICAN CONCRETE INSTITUTE AMERICAN 

REVISED SPECIFICATIONS BEING PREPARED BY THE AMERICAN 

AMERICAN CONCRETE INSTITUTE WILL BRING THE DESIGN AMERICAN 

OF TALL CONCRETE CHIMNEYS INTO AGREEMENT WITH THE AMERICAN 

LATEST PRINCIPLES FOR SEISMIC AND WIND FORCES , AND AMERICAN 

WILL INCLUDE GUIDANCE FOR PROTECTION AGAINST AMERICAN 
CORROSION • CIRCULAR ST I FFENERS SHOULD BE USED WHENAMEP I CAN 

NECESSARY TO ASSURE A RESONANT WIND VELOCITY WELL AMERICAN 
ABOVE THE MAXIMUM THAT WILL OCCUR 

CIVIL ENGINEERING* FEB. 1964* PP. 32-35 



CIRCULAR STIFFENERS 
REVISED SPECIFICATIONS BEING PREPARED BY THE 
AMERICAN CONCRETE INSTITUTE WILL BRING THE DESIGN 
OF TALL CONCRETE CHIMNEYS INTO AGREEMENT WITH THE 
LATEST PRINCIPLES FOR SEISMIC AND WIND FORCES « AND 
WILL INCLUDE GUIDANCE FOR PROTECTION AGAINST 
CORROSION • CIRCULAR STIFFENERS SHOULD BE USED WHENC IRCULAR 
NECESSARY TO ASSURE A RESONANT WIND VELOCITY WELL CIRCULAR 
ABOVE THE MAXIMUM THAT WILL OCCUR 

CIVIL ENGINEERING, FEB. 1964, PP. 32-35 



AMERICAN 
AMERICAN 
A MER I CAN 
C IRCULAR 
C IRCULAR 
C IRCULAR 
CIRCULAR 
C I RCULAR 
C I RCULAR 



CORROSION 

REVISED SPECIFICATIONS BEING PREPARED BY THE 
AMERICAN CONCRETE INSTITUTE WILL BRING THE DESIGN 
OF TALL CONCRETE CHIMNEYS INTO AGREEMENT WITH THE 
LATEST PRINCIPLES FOR SEISMIC AND WIND FORCES , AND 
WILL INCLUDE GUIDANCE FOR PROTECTION AGAINST 
CORROSION • CIRCULAR STIFFENERS SHOULD BE USED WHENCORROS I.dN 
NECESSARY TO ASSURE A RESONANT WIND VELOCITY WELL CORROSION 
ABOVE THE MAXIMUM THAT WILL OCCUR 

CIVIL ENGINEERING, FEB. 1964, PP. 32-35 



C IRCULAR 
C IRCULAR 
C IRCULAR 
CORROSI ON 
CORROSI ON 
CORROSI ON 
CORROSI ON 
CORROSI ON 
CORROSI ON 



CONCRETE 
CONCRETE 
CONCRETE 
CONCRETE 
CONCRETE 
CONCRETE 
CONCRETE 
CONCRETE 
CONCRETE 
CONCRETE 
CONCRETE 
ST I FFENERS 
STIFFENERS 
STIFFENERS 
ST IFFFNERS 
STIFFENERS 
ST I FFENERS 
STIFFENERS 
ST I FFENERS 
STIFFENERS 
STIFFENERS 
STIFFENERS 



DAMPING CHARACTERISTICS 
REVISED SPECIFICATIONS BEING PREPARED BY THE 
AMERICAN CONCRETE INSTITUTE WILL BRING THE DESIGN 
OF TALL CONCRETE CHIMNEYS INTO AGREEMENT WITH THE 
LATEST PRINCIPLES FOR SEISMIC AND WIND FORCES , AND 
WILL INCLUDE GUIDANCE FOR PROTECTION AGAINST 

CORROSION • CIRCULAR STIFFENERS SHOULD BE USED WHENDAMPING 
NECESSARY TO ASSURE A RESONANT WIND VELOCITY WELL DAMPING 
ABOVE THE MAXIMUM THAT WILL OCCUR DAMPING 
CIVIL ENGINEERING, FEB. 1964, PP. 32-35 DAMPING 

DA MP I NG 



CORROSION 
CORROSI ON 
CORROSI ON 

DAMPING CHARACTER IS 
CHARACTER I S 
CHARACTER I S 
CHARACTER I S 
CHARACTER I S 
CHARACTER I S 
CHARACTER I S 
CHARACTER I S 
CHARACTER I S 
CHARACTER I S 
CHARACTER I S 



DA MP I NG 
DA MP I NG 
DAMPI NG 
DA MP I NG 
DAMPI NG 



N092430 1 64 
N092430264 
N092430364 
N092430464 
N092430564 
N092430664 
N092430764 
N092430864 
N092430964 
N092431 064 
N092431 1 64 
092430 1 64 
092430264 
092430364 
092430464 
092430564 
092430664 
092430764 
092430864 
092430964 
09243 1 064 
092431 164 
092430 1 64 
092430264 
092430364 
092430464 
092430564 
092430664 
092430764 
092430864 
092430964 
092431 064 
092431 1 64 
T092430 1 64 
T092430264 
T092430364 
T092430464 
T092430564 
T092430664 
T092430764 
T092430864 
T092430964 
T092431 064 
T092431 164 
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SEISMIC AND WIND FORCES SEISMIC AND WIND 

REVISED SPECIFICATIONS BEING PREPARED BY THE SEISMIC AND WIND 

AMERICAN CONCRETE INSTITUTE WILL BRING THE DESIGN SEISMIC AND WIND 
OF TALL CONCRETE CHIMNEYS INTO AGREEMENT WITH THE SEISMIC AND WIND 
LATEST PRINCIPLES FOR SEISMIC AND WIND FORCES , AND SEISMIC AND WIND 
WILL INCLUDE GUIDANCE FOR PROTECTION AGAINST SEISMIC AND WIND 

CORROS ■ < • CIRCULAR ST I FFENERS SHOULD BE USED WHENSEISMIC AND WIND 
NECESSARY TO ASSURE A RESONANT WIND VELOCITY WELL SEISMIC AND WIND 
ABOVE THE MAXIMUM THAT WILL OCCUR SEISMIC AND WIND 

CIVIL ENGINEERING* FEB. 1964, PP. 32-35 SEISMIC AND WIND 

AND WIND 



SPECIFICATIONS 
REVISED SPECIFICATIONS BEING PREPARED BY THE 
AMERICAN CONCRETE INSTITUTE WILL BRING THE DESIGN 
OF TALL CONCRETE CHIMNEYS INTO AGREEMENT WITH THE 
LATEST PRINCIPLES FOR SEISMIC AND WIND FORCES , AND 
WILL INCLUDE GUIDANCE FOR PROTECTION AGAINST 
CORROSION • CIRCULAR ST I FFENERS SHOULD BE USED 
NECESSARY TO ASSURE A RESONANT WIND VELOCITY WELL 
ABOVE THE MAXIMUM THAT WILL OCCUR 

CIVIL ENGINEERING, FEB. 1964, PP. 32-35 



STACKS 

REVISED SPECIFICATIONS BEING PREPARED BY THE 
AMERICAN CONCRETE INSTITUTE WILL BRING THE DESIGN 
OF TALL CONCRETE CHIMNEYS INTO AGREEMENT WITH THE 
LATEST PRINCIPLES FOR SEISMIC AND WIND FORCES , AND 
WILL INCLUDE GUIDANCE FOR PROTECTION AGAINST 
CORROSION • CIRCULAR STIFFENERS SHOULD BE USED WHENSTACKS 
NECESSARY TO ASSURE A RESONANT WIND VELOCITY WELL STACKS 
ABOVE THE MAXIMUM THAT WILL OCCUR 

CIVIL ENGINEERING, FEB. 1964, PP. 32-35 



SEISMIC 
SEISMIC 
SEISMIC 

SPEC IFICATI ONS 
SPEC IFICATI ONS 
SPECIFICATIONS 
SPEC I FICATI ONS 
SPECIFICATIONS 
SPEC IFICATI ONS 
WHENSPEC IFICATI ONS 
SPECIFICATIONS 
SPEC IFICATI ONS 
SPEC IFICATI ONS 
SPEC IFICATI ONS 
STACKS 
STACKS 
STACKS 
STACKS 
STACKS 
STACKS 



TALL CONCRETE CHIMNEYS 
REVISED SPECIFICATIONS BEING PREPARED BY THE 
AMERICAN CONCRETE INSTITUTE WILL BRING THE DESIGN 
OF TALL CONCRETE CHIMNEYS INTO AGREEMENT WITH THE 
LATEST PRINCIPLES FOR SEISMIC AND WIND FORCES , AND 
WILL INCLUDE GUIDANCE FOR PROTECTION AGAINST 
CORROSION • CIRCULAR STIFFENERS SHOULD BE USED WHENTALL 
NECESSARY TO ASSURE A RESONANT WIND VELOCITY WELL TALL 
ABOVE THE MAXIMUM THAT WILL OCCUR 

CIVIL ENGINEERING, FEB. 1964, PP. 32-35 



STACKS 
STACKS 
STACKS 

TALL CONCRETE CHI 
CONCRETE CHI 
CONCRETE CHI 
CONCRETE CHI 
CONCRETE CHI 
CONCRETE CHI 
CONCRETE CHI 
CONCRETE CHI 
CONCRETE CHI 
CONCRETE CHI 
CONCRETE CHI 



TALL 
TALL 
TALL 
TALL 
TALL 



TALL 
TALL 
TALL 



VIBRATION VIBRATION 
REVISED SPECIFICATIONS BEING PREPARED BY THE VIBRATION 
AMERICAN CONCRETE INSTITUTE WILL BRING THE DESIGN VIBRATION 
OF TALL CONCRETE CHIMNEYS INTO AGREEMENT WITH THE VIBRATION 
LATEST PRINCIPLES FOR SEISMIC AND WIND FORCES , AND VIBRATION 
WILL INCLUDE GUIDANCE FOR PROTECTION AGAINST VIBRATION 
CORROSION • CIRCULAR STIFFENERS SHOULD BE USED WHENV I BR AT I ON 
NECESSARY TO ASSURE A RESONANT WIND VELOCITY WELL VIBRATION 
ABOVE THE MAXIMUM THAT WILL OCCUR VIBRATION 
CIVIL ENGINEERING, FEB. 1964, PP. 32-35 VIBRATION 

VIBRATION 



FOR092430 1 64 
FOR092430264 
F0R092430364 
F0R092430464 
FOR092430564 
FOR092430664 
FOR092430764 
FOR092430864 
FOR092430964 
FOR092431 064 
FOR09243 1 1 64 
092430 1 64 
092430264 
092430364 
092430464 
092430564 
092430664 
092430764 
092430864 
092430964 
092431 064 
092431 1 64 
092430 1 64 
092430264 
092430364 
092430464 
092430564 
092430664 
092430764 
092430864 
092430964 
09243 1 064 
09243 1 1 64 
MNE092430 1 64 
MNE092430264 
MNE092430364 
MNE092430464 
MNE092430564 
MNE092430664 
MNE092430764 
MNE092430864 
MNE092430964 
MNE092431 064 
MNE092431 1 64 
092430164 
092430264 
092430364 
092430464 
092430564 
092430664 
092430764 
092430864 
092430964 
092431 064 
092431 1 64 



182 



1620 USERS GROUP 
GENERAL DATA PROCESSING 



"An Electric Load Statistics System 
for An Electric Utility* 



Prepared by 
Edward H. Parker 
Engineering Computer Applications 



Baltimore Gas and Electric Company 
Baltimore, Maryland 21203 



May 8, 196b 



May , 196U 

1620 USERS GROUP 
An Electric Load Statistics System for An Electric Utility 

The routine hourly records of generation, interchange with other utili- 
ties, supply and interchange with the Bethlehem Steel Company and supply to the 
Pennsylvania Railroad were mechanized through the use of the 1620 in 1961. The 
work included in the operation are arithmetical calculations necessary to pro- 
vide the various combinations of basic data to obtain the several electrical 
system loads and their components* The data used are obtained from operators 1 
log sheets and by telephone. The output is typewritten on 8-1/2 inch by 11 inch 
pre-printed forms which give hourly values and daily totals • Ultimately, monthly 
forms are produced which show the daily and monthly totals and also the daily 
one -hour peaks for selected items. The resulting information is used in the pre- 
paration of reports, studies and forecasts* The typewritten sheets are the 
counterpart of some of the records which have been kept for many years. 

Twenty-four individual programs which may be used singly or in groups 
comprise a series of twelve operations from the time key-punchers provide the 
data packages each day until about two months later when the data are put into 
record files. Five types of operations are used in the process. They are 
checking, storing of data in core, production of off-line printing decks, pro- 
duction of data to be filed and combination of filed data with programmed iden- 
tification for off-line printing. 

The system is prepared for two different printers* One is the 870 
system which has the appearance of a key-punch connected to a typewriter* The 
other is a 1*07 printer. The 870 is used when one day's work is processed* The 
U07 is used when a large quantity, which would overload the 870, is to be 
printed. 18^///^./ 



The various data are obtained from a variety of meters read by station 
or machine operators and by automatic recording equipment in many widely dispersed 
installations in the three states of the Company* s interconnection area. The 
majority of the data are sent from the operating location into the Electric 
Engineers Department by regular Company mail* The data assembled onto a particu- 
lar form for permanent records are not all interrelated* In carrying out a 
manual operation, data forms can be pieced together gradually throughout the day 
as the required data are available* In the meantime, the data which are complete 
can be disseminated* The programs written for the machine operation do not allow 
for variations of availability of data* Such flexibility was rejected after 
consideration of the various factors involved* All data are key-punched from 
the various log sheets which have been organized according to priority groups 
related to the sequence of need for the output forms to be produced* The total 
group of data cards required to produce selected sets of output forms have been 
labeled "packages". 

Operation of the 1620 phase of the dally operation is scheduled to 
start at 9:l£ a.m* A data package is first checked for omissions, then for 
accuracy by means of two editing programs* The first check is accomplished by 
means of a "hash total" of the identification numbers punched in the cards* 
Corrections of data are accomplished during the second edit phase* When an error 
is detected, the operation halts after an indication is typed on the console type- 
writer* Cheeking continues while errors are corrected by the key-punch operator* 
There is no need to restart the entire package during the checking phase* Part 
of this check requires that the midnight readings of the previous day - that is 
to say the low reading for the current day - be read into appropriate storage 
locations in order to check the twenty-four hour total* This reading, subtracted 
from its counterpart in the current day's data, should obviously be equal to the 
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total for the day obtained by adding the individual hourly values* When this 
detail is accepted by the program, the midnight-hour reading for the current day 
is stored in a special location so that all such readings may be punched to pro- 
duce a new meter summary deck of cards for use as input data the following day. 

There are five different processes by which the data are handled in 
the checking operation* The simplest is the acceptance of a twenty-four hour 
total. The next involves a meter reading with a twenty-four hour total as sug- 
gested before* Another is a series of hourly readings and a twenty-four hour 
total* Then naturally* hourly readings* twenty- four hour total and meter state- 
ments make a double check possible* Finally - one not quite so obvious - sets of 
meter statements and their twenty-four hour totals, without individual hourly 
values, are compared with the twenty-four hour sum of the combined hourly values 
of all the components* We call these editing routines* I have explained them 
because they are the basis of the adaptability of the system to electrical load 
measuring and recording methods* 

When all data, approximately UOO key-punched cards, have been accepted 
by the program, a process requiring slightly over two minutes for correct data, 
all of the hourly data and separate twenty-four hour totals will have been stored 
in the core at specific addresses assigned to the particular item. The operator 
is then instructed to insert the production program. 

These programs are so arranged that they select data from core accor- 
ding to specific requirements of a particular typewritten output sheet or form. 
These production programs are the sum total of all the manual steps previously 
carried out. They involve more logic than arithmetic. Since some data are 
positive and others negative and records are kept in terms of sales, purchases, 
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interchange, high and low transmission voltage, steam generation, losses, water 
power or cycles per second, many variations in the form make-up are possible* 
Network switching and equipment usage also insert variations in the programs. 
When the programs for a given package of data have been completed the machine is 
cleared and the next set of data can be edited. This may be the same work for 
the next day or, if available, the second package of the same day* 

One might assume that the considerations mentioned in regard to the 
data and forms would be enough to make a system work* But, as you might have 
suspected, such is not the case. In this particular operation, it was necessary 
to allow for backward -turning meters, back feed through normally forward-turning 
meters and non-generation operation of generators or what is known as condenser 
operation* In a few cases, power might be sent through a second meter when a tie 
line was closed. Such values must be "marked" and properly handled. As you all 
know, any meter has a small number of dials so that when the reading reaches 999 
it must "turn over*** The next reading is zero not 1000, Normal and negative 
meter turnover are programmed in the edit phase. 

The punched card output of the 1622 is of three types * complete printing 
decks for immediate use, records to be stored for use at the end of the month as 
input for the end of the month operation and "converted* 1 data obtained from that 
assembled on the first cards for printing* Conversion involves selection and iden- 
tification by means of a special code for system components which are part of the 
permanent record* 

The output cards for preparing the printed sheets are saved for a period 
of two months* Some forms cannot be prepared as soon as the majority are prepared 
because data for these are from a different source • When the late data are in, 
combinations of more specific items can be prepared* 
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Operation is only approximately the same each day. The major difference 
occurring on Monday when three day? are processed. Certain data are allowed to 
accumulate for several days at the source before delivery and are, therefore, pro- 
cessed when available. On the average, the system almost repeats itself every 
week and a half to two weeks with the exception of the month-end work. 

The daily operation consists of two periods, one in the morning and one 
in the afternoon. The morning is the larger being from an hour and a half to 
sometimes three hours. The afternoon operation which usually is concerned only 
with the data which became available after the noon hour and operations requiring 
the entire data package for the day, can be accomplished in as little as ten 
minutes on the 1620. Up to an hour and a half is required when four or five days 
of irregular data become available because this must all be checked for errors. 
Naturally, a fair amount of card filing is an integral part of the whole operation. 
This averages out to roughly fifteen minutes a day. 

Output consists of fourteen daily sheets, twenty-seven monthly sheets 
and approximately 2f>0 cards of permanent record after unneeded data cards are sorted 
out. The operation is found to produce a higher quality, more legible record and 
makes it possible for the Daily Statistics Group to take on other work. 

This operation is carried out as nearly as possible on a current basis. 
The fact that some data errors are cleared up by immediate telephone calls, while 
machine operation is held up, puts the daily statistics operation in a special 
category compared to usual practices. In regard to delay times, it is conceivable 
to start the operation only after all log sheet data are on hand. Intermittent 
operation could be scheduled, but it was decided that any arbitrary intentional 
delays on days when data are available could so seriously reduce the value of the 
information that every effort should be made to carryout as nearly as possible a 
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continuous process starting early every day. 

The data structure is somewhat complicated but unavoidably so as was 
implied earlier* This recommends a higher degree of operator familiarity with the 
data and operation than a straightforward calculation would demand. The fact 
that the system accounts for 30% of the 1620 time on a monthly basis with a high 
operator activity level recommends a program of rotation of operators. Since 
the generation and distribution system is constantly being revised, the programs 
are brought up-to-date repeatedly* 
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7 7 717 

I 

8 8 818 

1 

9 9 919 

3 4 5 l6 



5 5 5 

6 6 6 

7 7 7 



9 9 9 

7 8 9 



5 5 5 

6 6 6 

7 7 7 



9 9 9 

10 11 12 

IBM 090303 



55 



6 6 6 6 



7 7 



5 5 5 515 5 



7 7 



6666666 



555555 



mm 

8 8 8 8 8 8 



515 5 5 5 5 5 5 5 
I 

616 



717 



9 9 9 9 9 9 9'9 9 9 9 9 9 9 9 



2«tz9 30 



6 6 6 6 

7 7 7 7 

8 8 8 8 



55555555 



6 6 6 6 

7 7 7 7 

8 8 8 8 

9 9 9 9 



5 5 5 5 
666 

7 7 7 7 

8 8 8 8 
99999999 



555555555555 



6 6 6 6 6 

7 7 7 7 

8 8 8 8 



6 6 6 6 

7 7 7 7 

8 8 8 8 

9 9 9 9 



6 6 6 6 
777 



77 



9 9 9 9 

31 32 33 34 35 36 37 38 39 40(41 42 43 44 45 46 4? 48)49 50 SI 52] 53 54 55 56 57 58 59 60|61 62 S3 64 65 66 67 68 C8 70 l\ li 



9 9 9 9 



6 6 6 6 
777 

8 8 8 8 

9 9 9 9 



3 3 3 3 

4444444444444444 
5 5 5 5 
666666 
7 7 7 7 



555555555555 

6 6 6 

7 7 7 7 



66666666 



77777777 
8 8 8 8 

99 9 9999 9 



3 3 3 3 

4 4 4 4 

5 5 5 5 
6 6 6 

7 7 7 7 



192 



9 9 9 9 

73 74 75 76 



9 9 9 9 

77 78 79 60 



(M-U79) 



B.G. & E. CO. 



ENGINEERING STATISTICS 



COLUMN HEADINGS 



COLUMN HEADINGS 



1 


BALTIMORE - COMP. 8 


11-13 


25 CYCLE 






2 


MD. P.R.R. INCL. BFCL - COMP. 9 


1 1 


BALTI MUKL 






3 


STEEL PLANT - COMP. 10 




BAL I I MORE 


PLUS b 1 ttL 


C A 1 PC 


4 


BALTIMORE GROUP - COMP. 11 


13 


BALTIMORE 


GROUP 




5 


WASHINGTON - COMP. 12 










6 


BALTO. WASH. GROUP - COMP. 13 


14-15 


60 CYCLE 






7. 


BALTO. PLUS WASH. 


14 


BALTIMORE 






8 


BALTO. AND STEEL PLANT 


15 


BALTIMORE 


PLUS STEEL 


SALES 


9 


BALTO. AND STEEL SALES 










10 


BALTO. AND STEEL SALES AND MD. P.R.R. 











HR 


, 1 


2 


3 


' 4 


5 


6 


7 


8 


9 


10 


11 


12 


13 


14 


15 


01 
02 
03 
04 
05 
06 


511 
484 
473 
467 
476 
502 


15 
21 
18 
19 
19 
20 


218 
233 
239 

O O 

222 
224 
238 


744 
738 
730 
708 
719 
760 


488 
452 
435 
434 
433 
454 


1232 
1190 
1165 
1142 
1152 
1214 


999 
936 
908 
901 
909 
956 


729 
- 717 
712 

689 
700 
740 


634 
616 
609 
584 
578 
621 


649 
637 
627 
603 
597 
641 


18 
17 
17 
18 
17 
18 


18 
18 
19 
21 
19 
21 


42 
43 
43 
47 
47 
46 


493 
467 
456 
449 
459 
484 


616 
598 
590 
563 
559 
600 


07 
08 


573 
757 


21 
30 


237 
272 


831 
1059 


547 
731 


1378 
1790 


1120 
1488 


810 
1029 


681 
896 


702 
926 


18 
20 


21 
25 


45 
57 


555 
737 


660 
871 


09 
10 
11 

J- c 


911 
989 
1029 


17 
14 
11 

x C 


239 
236 
241 
241 


1167 
1239 
1281 
1284 


894 
992 
1032 
1042 


2061 
2231 
2313 
2326 


1805 
1981 
2061 

C.KJ f D 


1150 
1225 
1270 
1272 


1024 
1077 
1100 
1117 


1041 
1091 
1111 
1129 


25 
27 
26 
27 


33 
34 
29 

35 


62 
61 
66 
65 


886 
962 
1003 
1004 


991 
1043 
1071 
1082 


13 
14 


1012 
1039 


12 
12 


241 
262 


1265 
1313 


1019 
1034 


2284 
2 347 


2031 
2073 


1253 
1301 


1117 
1155 


1129 
1167 


23 
28 


31 
37 


63 
67 


989 
1011 


1086 
1118 


15 
16 


1022 
1007 


21 
23 


265 
251 


1308 
1281 


1029 
1030 


2337 
2311 


2051 
2037 


1287 
1258 


1135 
1168 


1156 
1191 


28 
23 


39 
31 


66 
62 


994 
984 


1096 
1137 


17 
18 


995 
971 


24 
28 


253 
245 


1272 
1244 


1003 
982 


2275 

2226 


1998 
1953 


1248 
1216 


1158 
1115 


1182 
1143 


24 
24 


32 

34 


63 
65 


971 
947 


1126 
1081 


19 
20 
21 
22 


999 

1 020 
1006 
928 


24 

24 
11 
14 


262 
236 
261 
278 


1285 
1280 
1278 
1220 


987 
1002 
968 
881 


2272 

2282 
2246 
2101 


1986 
2022 
1974 
1809 


1261 
1256 
1267 
1206 


1157 
1154 
1157 
1070 


1181 
1178 
1168 
1084 


22 
22 
21 
23 


33 

33 
30 
33 


59 
61 
59 
64 


977 

998 
985 
905 


1124 
1121 
1127 
1037 


23 
?4 


815 
706 


19 
20 


245 


1079 

q^R 


749 
613 


1828 
1571 


1564 
1319 


1060 

93ft 


937 
821 


956 
R41 


20 
21 


26 
27 


55 
52 


795 
685 


911 
794 


TOTAl 


19723 


449 


5R71 


26043 




4<S?74 




255Q4 








p,7q 






??on? 




1.1. 


1A ^ 


SYSTEM LOAD COMPONENTS 


MWHR - 


MAIN UNIT BASIS 


M0N APR 


20 1964 





(Ml 679) 



B.G. & E. CO. 



ENGINEERING STATISTICS 



COLUMN HEADINGS 



COLUMN HEADINGS 



1-6 SAFE HARBOR NET SEND OUT 

1 230 KV 

2 138 KV 

3 69 KV 

4 TOTAL - SEE NOTE 

5 2/3 

6 1/3 



8 
10 



7 MANOR-BRUNNER IS. TO BRUNNER IS. 

NET TO BALTO. -WASH. GROUP FROM OTHERS 

9 NET INTERCHANGE TO B.-W. GRP. 

NET INTERCHANGE TO BALTO. GRP. 

11 NET INTER. FROM WASH. TO BALTO. GRP. 

12 S.H. 230 KV NET TO BALTO. -WASH. GRP. 



nr\ 


• 1 




4 
J 




c 
9 


© 


7 

f 


Q 
9 


o 


in 

IV 


1 1 
• i 


19 
1 z 


1 1 


1 *r 


IS 


oi 
\j x 


1 02 


5? 


20 


174 


116 

X X \J 


5ft 


91 

C X 


977 


1 06 


700 


Q4 


Rl 
o X 








02 

\J Cm 


102 

\J Cm 


51 


18 


171 


114 


57 


10 


24Q 


1 "55 


214 

Cm X *T 


7Q 










o^ 


10ft 


51 
j x 


16 


175 


117 

X X f 


Rft 
-J o 


-1 1 


7 


116 

X X D 




QQ 


11Q 

X X ^3 








04 


110 


46 


17 


173 


115 


58 


-14 


228 


113 


191 


78 


124 








05 


1 09 


52 

mj Cm 


14 

mm *T 


1 75 


117 


5ft 


-5 


1 Qfl 


7 "3 


1 4Q 


7£> 


114 

X X *T 








06 


109 


51 


20 


180 


120 


60 


35 


166 


46 


97 


51 


74 








07 


104 


52 


23 


179 


119 


60 


80 


51 


-68 


-21 


47 


24 








08 


94 


58 


36 


188 


125 


63 


133 


-41 


-166 


-90 


76 


-39 








09 


104 


59 


48 


211 


141 


70 


179 


-173 


-314 


-227 


87 


-75 








10 


107 


61 


52 


220 


147 


73 


190 


-213 


-360 


-217 


143 


-83 








11 


110 


62 


57 


229 


153 


76 


192 


-209 


-362 


-224 


138 


-82 








12 


110 


64 


57 


231 


154 


77 


179 


-164 


-318 


-183 


135 


-69 








13 


112 


64 


52' 


226 


152 


76 


158 


-53 


-205 


-126 


79 


-46 








14 


109 


64 


55 


228 


152 


76 


165 


-102 


-254 


-158 


96 


-56 








15 


111 


64 


53 


228 


152 


76 


159 


-79 


-231 


-144 


87 


-48 








16 


110 


64 


52 


226 


151 


75 


144 


-24 


-175 


-106 


69 


-34 








17 


107 


61 


54 


222 


148 


74 


159 


-73 


-221 


-141 


80 


-52 








18 


104 


65 


49 


218 


145 


73 


153 


-62 


-207 


-156 


51 


-49 








19 


107 


61 


50 


218 


145 


73 


147 


-28 


-173 


-131 


42 


-40 








2 


107 


66 


50 


223 


149 


74 


150 


-45 


-194 


-163 


31 


-43 








21 


110 


63 


48 


221 


147 


74 


147 


-33 


-180 


-151 


29 


-37 








22 


109 


64 


43 


216 


144 


72 


132 





-144 


-125 


19 


-23 








23 


106 


58 


35 


199 


133 


66 


103 


98 


-35 


-10 


25 


3 








24 


108 


57 


28 


195 


129 


66 


79 


121 


-8 


64 


72 


2.9 








TOTAl 


2569 


1410 


947 


4928 


3285 


1643 


2685 


259 


-3026 


-1253 


1773 


-116 










INCL.RAMP ENERGY OF MWHR 




TO. .1558 


. . . .589 


. . .1120. . .1773 


....660 


> 


""fcND 


P.P.S: L 


STA.SER.OF 2 MWHR 




FROM. 1299 


. . .3615 


. . .2373 







-1.1.25 S.H. ENTITLEMENT & INTERCHANGE DATA 



MWHR 



MON APR 2 1964 



(M-mi) 



B. G. & E. CO. 



ENGINEERI NG STATISTICS 

MINUS ~~ 



CD 



COLUMN HEADINGS 

1 NET BEN. 138KV FROM WASH. 

2 WET BEN. 1 15KV FROM HASH. 

3 NET FROM WASH. 

'4 NET 230KV FROM BALTO. TO S.H.& BURT. 

5 NET TO PA. FROM B.W. GROUP 

6 NET PA. INTER. FROM B.W. GP.^BILL 
7- NET DELV. FROM BA.LTO. GROUP 



8 
9 
10 
11 
12 
13 



COLUMN HEADINGS* 1NL> 
NET INTER. FROM BALTO. GP. BILL. 
BALTO. AND MD. P.R.R. 
BALTO. , ST. SALES, MD. P.R.R. WASH. 
BALTO. . , WASH. GEN. & 23 S.H.NET S.O. 
NET'A.PS 230 KV FROM WASH. 
NET VEPCO 230 KV FROM WASH. 



3AT€ 



10 



II 



12 



13 



14 



15 



1 

2 
1 
4 
S 
4 
7 


9 27 

6 26 

7 25 
2 25 


3 53 

2 36 

5 29 

6 34 
5 17 

3 15 
3 14 


5 191 

2 147 
5 142 
5 126 
5 106 
5 102 

3 100 


9 13 
13 85 

9 91 
22 93 
18 100 
.9 114 
1-8 52 


1 9 
9 86 
9 64 
1 5 

9 65 
18 4 


1 6 

1 2 
1 5C 
1 127 
1 125 




1 18 
* 

1 32 


20 796j 
19 1047 
19 1070 

19 1083 

20 1056 
20 1029 
20 879 


20 1642 
20 2152 
19 2224 

19 2235 

20 2153 
20 2104 
20 1827 


19 1348 
11 203C 
11 2056 
19 2074 
11 2095 
11 214C 
19 1702 


1 2^ 
13 85 

9 91 
22 93 
18 10C 

9 114 
18 52 








• 

t 
19 

II 
12 
11 
14 


15 <3 
13 1 
17 12 


3 31 

3 40 
5 37 
5 47 
1 46 
5 58 

4 65 


3 85 

3 101 

4 104 
2 125 

1 128 

5 177 

2 203 


10 17 

13 58 
18 94 

9 82 

14 42 
8 73 

11 66 


18 8 


1 48 






20 770 
20 1043 
20 1047 
20 1049 
20 1090 
20 1030 
20 883 


20 1644 
11 2159 
20 2151 
20 2177 
11 2170 
20 2134 
19 1837 


20 1425 

11 2077 

12 2071 
11 204C 
14 2076 
20 2082 
19 1639 


10 17 

13 58 
18 94 

9 82 

14 42 
8 73 

11 66 








ti- 
lt 

17 
It 

19 
20 
21 


16 11 

16 S 
12 10 
14 9 
16 8 
23 7 


3 51 
1 63 
5 59 
1 43 

3 49 

4 49 
3 53 


2 139 
1 165 
5 182 

3 1 64 

4 174 

5 178 
5 / 173 


9 8 
15 73 
14 53 

9 63 
12 57 
21 68 
23 93 




1 54 






20 769 
20 1048 
20 1032 
cQ 1083 
20 1068 
20 1046 
20 946 


20 1640 
20 2166 
12 2136 
20 2222 
20 2174 
20 2148 
20 1941 


20 156C 
12 1987 
14 1942 
11 2066 
2 2 047 
11 2045 
20 1733 


9 8 
15 73 
14 53 

9 63 
12 57 
21 68 
23 93 








22 
23 
24 
2S 
2* 
27 
2t 


4 9 
14 2 

— fer- 


5 32 
3 44 

5 M 
3 7 9 

6 25 
5 54 
5 36 


6 149 
3 159 

5 201 
3 2 39 

6 9 7 
5 19 5 
1 10 5 


13 82 
11 97 

10 44 
cy ^ -7 

18 77 

11 52 
2C 12 


12 21 


1 102 
1 120 






20 797 
20 1063 
2 10 38 
2 1012 
20 1053 
20 932 
20 873 


20 1679 

20 2193 
2 2167 
2 r. 214 3 
20 2167 
12 1997 
20 1834 


20 1508 

11 2088 
11 

20 1992 

12 1977 
11 175C 
20 1496 


13 82 
11 97 

10 4 4 
9 57 

18 77 

11 52 
20 12 








if 

31 


9fc 7 

9 y f 


3 29 
3 39 
21 61 


3 69 
5 101 
1 12 7 


22 53 
22 52 










21 72$ 
20 1048 
20 1052 


21 1524 
12 2155 
14 2175 


21 1164 

2 2 36 
20 2106 


22 5 3 
22 52 


• 






OTAL 




2^ rJ 


2b 2V' 


6 114, 


2 £6 


6 127 




7 32 


12 1091 


4 22 35 


6 214C 











1.2.1 



GROSS INTERCHANGE AND MISC. SYSTEM LOADSS 



MARCH 1964 



1620 USERS GROUP 



GENERAL DATA PROCESSING* 



A WORK PERFORMANCE MONITORING SYSTEM 
DESIGNED FOR AN ELECTRIC UTILITY 
METER AND INSTALLATION DEPARTMENT 



D. D. Williams 
Engineering Computer Applications Group 
Baltimore Gas and Electric Company 
Baltimore, Maryland 21203 



:a3ic.::a: roa a:t ''"lao/ric Arzi~'.A: - 
i-3 : :.:::r iastai lat joa d:?aaaa-:jat 

Da - D. UiXIinns 
Ealtiasre Gas and haostrie Conpan/ ' 

ihe Baltimore Gas end .Sloe/trio Cocnssr/- has for a nutter of 
years conducted a Mjsli -Aanji^ciinnt Program in a susibcr of ..its operating 
depaaa;nmts p notably the Gas Service and alter and Installation Depart- 
i>.iirb5c This Pro^raai tsaa started and has spread as a liisaas of providing 
MaaaAsnant not with a ^hip uithvtnhieh to increase work output s but 
rather -with information that uculd surest improvements- in budgeting 
aid cehoduliiis results aad in *:orh practices and planning. In other 
tror&s, its pai-poco wa to provide ■ lanaA-neat iTith a device with which 
it could onert bottwr control over operations* 

'aha PL*Gs?£i» *aXI a little short of this , objective, •besause it 
lef w the analysis of the uuss of information which- it. produced up to 
the liapar-bient Heads* To ell?.iaato ■ this shorts cnin^ the installation 
Davisiori of the hater and Installation Depart..-~nt 'requested that, a 
monthly analysis be i.:ade of this infoAAaticn en the Cc::ipsui7 s s . tjpe lo20 
ccsptets?* The Installation Division ;las the f unction of installing and 
maintaining neterin^ equipment and service drops ^u customers' premises. 
•''The attached monthly cperatiens;;;reportoUAS ; developed ;as: : ; an' answer • toa.. ■ 
•■.this request. It analyses bstween 3$*0w : an4 k<)?£$0r%i&&G&&3 per ;• 
; month for eight tj-orh districts 'and for \the. -Division '■ at3 a whole v; The 



Heter and Installation Department uses contractors to supplement its own 
forces P and for the purposes of this report, all. contractors regardless 
of the districts in which they work are treated as comprising District 9. 
?h3 copy ex*Qs report attached hereto contains the sheets for only one 
of these districts where a sheet type is produced for the districts as 
i7oll as for the Division as a whole. 

I "will not atter.pt to discuss here the contents of all of the 
tabulations contained in the report, . However, from a general data pro- 
cessing point-of-view, a few salient features are noteworthy. As a 
control device, the report would be virtually useless without the bases 
for comparison- provided by the columns headed, "Last Month", "Same Month 
Last Year" and "12-Month Average". The "One-Month Average" shown In 
this particular issue of the report will grew to be a «l2«Month Average" 
in January, 1965, and will continue thereafter to bo a "12«4-Ionth Average" . 
To provide these figures, the system turns out summary cards each month 
which become input to the system the following month. In addition to 
the time cards end the summary cards, there are approximately a thousand 
master function cards which are input to the system and which provide 
the bases for calculating performance indexes and for distributing work 
and travel time as indicated by the various tabulations. By definition, 
a function is a prescribed process such as installing a "service drop" 
or removing a meter, and a job is a unit of work which covers a single 
completion of a function 6 As indicated above, the work of the Installation 
Division has been divided into approximately a thousand functions which 
are broadly classified as productive or non-productive. 

V. // 2. 



-page. 3 - 



The system was designed to be as flexible, as possible with 
respect to such iteias as the addition and subtraction of tabulations to 
and from the report, the addition, changing and subtraction of linos 
within any tabulation and the changing of the Easter function lis$-'^?he 
system consists of several progrsas, the first of which, compiles- and 
suzaariscs data from the time cards after they have been sorted by fraction 
and district* The sorting takes between eight and ten hours to complete 
on an IE! Corporation type 082 sorter. The nest two programs contain the 
headings and interp. etively programmed steps for compiling all of the • 
tabulations in the report, except the one contained in sheet type 9« 
This sheet is produced by a separate program. It takes from one and a 
half to two hours to turn out the complete report en a 'type '1620 Model 1 
computer connected with a type 1622 card read-puneh unit* A complete 
report consists of approximately 60 pages , all of which are turned out 
by the system ready for printing en blank paper on the type 870 printer. 
It takes about six hours to print a complete report. 

As experience is gained in the interpretation and use of the 
information contained in this report 5 it is expected that the system will 
be extended to cover the operations of other divisions and departments in 
the Ccrspany. It is hoped that its flexibility will make it easily adaptable 
to their needs. 
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1-0 

JANUARY 1964 



INSTALLATION DIVISION 
MONTHLY OPERATIONS REPORT 
DIVISION SUMMARY 
DISTRIBUTION OF WORK TIME BY FUNCTIONAL CATEGORY (l) 



CATEGORY 



PRODUCTIVE WORK 

JOBS RECEIVED 
TOTAL 

RATE (NO/MAN-DAY) 

JOBS COMPLETED 
TOTAL 

COMPANY 
CONTRACTOR 
RATE (NO/MAN-DAY) 
TOTAL MEASURED 

ACTUAL JOB TIME ( HRS/MAN-DAY ) 
* EXPECTED JOB TIME ( HRS/mAN-DAy) 
JOB PERFORMANCE INDEX 
TOTAL UNMEASURED 

ACTUAL JOB TIME ( HRS/MAN-DAY ) 

SUPER., INSPECT., CLER. , ( HRS/MAN-DAY ) 

NON-PRODUCTIVE WORK 

JOB-RELATED 

HEADQUARTERS ( HRS/MAN-DAY ) 
FIELD (HRS/MAN-DAY) 

WORK PERFORMANCE INDEX (MEASD FUNC) 
TRAVEL ( HRS/MAN-DAY ) (2) 
TRAVEL PERFORMANCE INDEX 
OTHER (HRS/MAN-DAY) (3) 



CURRENT LAST SAME MO 
MONTH MONTH LAST YR 



1-MO. 
AVG. 



3148 
1.2 



4002 
3273 
729 
1.5 
3475 
2.85 
2.13 
1.34 
527 

.32 
2.49 



.49 
.27 
1.22 
1.09 
1.09 
.48 



3148 
1.2 



4002 
3273 
729 
1 

3475 
2 
2 
1 

527 



85 
13 
34 

32 



2.49 



49 
27 
22 
09 
09 
,48 



DISTRIBUTION OF 



work time by time 
(hrs/man-day) 



CATEGORY (l) 



CATEGORY 



CURRENT LAST SAME MO. 1-MO. 
MONTH MONTH LAST YR. AVG. 



STRAIGHT 
OVERTIME 

NOTES. 



TIME 



11 



7.88 
.12 



TIMES GIVEN IN TERMS OF EQUIVALENT MAN-DAYS. 
2 JEXCLUDI NG TRAVEL FOR SUPERVISION, INSPECTION, CLERICAL. 
(3)mEETINGS, TRAINING, AND ABSENCES COUNTED AS WORK TIME. 



7.88 
.12 



2 (J (I 



INSTALLATION DIVISION 



1-2 

JANUARY 1964 



MONTHLY OPERATIONS REPORT 
ANNAPOLIS SUMMARY 
DISTRIBUTION OF WORK TIME BY FUNCTIONAL CATEGORY (l) 

CATEGORY CURRENT LAST SAME MO 1-MO. 

MONTH MONTH LAST YR AVG. 

PRODUCTIVE WORK 



JOBS RECEIVED 

TOTAL 209 209 

RATE (NO/MAN-DAY .8 .8 

JOBS COMPLETED 

TOTAL 478 478 

COMPANY 478 478 
CONTRACTOR 

RATE (NO/MAN-DAY) 1.8 1.8 

TOTAL MEASURED 410 410 

ACTUAL JOB TIME ( HRS/MAN-DAY ) 2.98 2.98 

EXPECTED JOB TIME ( HRS/MAN-DAY) 2.33 2.33 

JOB PERFORMANCE INDEX 1.28 1.28 

TOTAL UNMEASURED 68 68 

ACTUAL JOB TIME ( HRS/MAN-DAY ) .25 .25 

SUPER., INSPECT., CLER. , ( HRS/MAN-DAY) 2.10 2.10 

NON-PRODUCTIVE WORK 
JOB-RELATED 

HEADQUARTERS ( HRS/MAN-DAY ) .50 .50 

FIELD (HRS/MAN-DAY) .21 .21 

WORK PERFORMANCE INDEX (MEASD TUNC) 1.07 1.07 

TRAVEL (HRS/MAN-DAY) (2) 1.54 1.54 

TRAVEL PERFORMANCE INDEX 1.10 1.10 

OTHER (HRS/MAN-DAY) (3) .42 .42 



% distribution of work time by time category (l) 

(hrs/man-day) 

current last same mo 1-mo. 
category month month last yr avg. 

straight time 7.94 7.94 

overtime .06 .06 

notes. (l)times given in terms of equivalent man-days. 

(2) excluding travel for supervision, inspection, clerical. 

(3) mEETINGS, TRAINING, AND ABSENCES COUNTED AS WORK TIME. 

2 I 



INSTALLATION DIVISION 
MONTHLY OPERATIONS REPORT 
JOB PERFORMANCE INDICES 
(MEASURED JOBS) 
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DIVISION 
MONUMENT STREET 
ANNAPOLIS 
ESSEX 

GLEN BURNIE 
HOWARD 

COCKEYSVILLE 
BEL AIR 
WESTMINSTER 
CONTRACTORS 



CURRENT LAST SAME MO, 
MONTH MONTH LAST YR, 



1.34 
1.58 
1.28 
1.16 
1.20 
1.12 
1.43 
.97 
1.08 
1.57 



1 -MONTH 
AVG. 



1 .34 
1.58 
1.28 
1.16 
1.20 
1.12 
1.43 
.97 
1.08 
1.57 
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INSTALLATION DIVISION 
MONTHLY OPERATIONS REPORT 
TRAVEL INDICES (MEASURED TRAVEL) 
PERSONNEL PERFORMANCE 



DIVISION 
MONUMENT STREET 
ANNAPOLIS 
ESSEX 

GLEN BURNIE 
HOWARD 

COCKEYSVILLE 
BEL AIR 



WESTMINSTER 
CONTRACTORS 



CURRENT 
MONTH 
(1) (2) 

1.09 42.84 

1.04 34.51 

1.10 51.86 
1.63 45.48 
1.68 50.64 

1.05 . 38.92 
.89 44.30 
.78 51.92 

1.00 64.61 
1.03 34.54 



LAST 
MONTH 
(1) (2) 



SAME MO. 
LAST YR. 
(1) (2) 



1 -MONTH 
AVG. 

(1) (2) 

1.09 42.84 

1.04 34.51 

1.10 51.86 
1.63 45.48 
1.68 50.64 

1.05 38.92 
.89 44.30 
.78 51.92 

1.00 64.61 

1.03 34.54 



NOTES, (l) ACTUAL TIME/NORMAL TIME. 

(2) TOTAL TRAVEL MI NUTES/COMPLETED PRODUCTIVE JOBS 
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INSTALLATION DIVISION 
MONTHLY OPERATIONS REPORT 
TRAVEL INDICES (MEASURED TRAVEL) 
DISPATCH PERFORMANCE 



CURRENT 



DIVISION 


, MONTH 
(1) (2) 
5.6 10.8 


MONUMENT STREET 


3.1 


5,9 


ANNAPOLIS 


9.6 


17.8 


ESSEX 


4.9 


8.6 


GLEN BURNIE 


6.4 


U.4 


HOWARD 


5.7 


12.1 


COCKEYSVILLE 


6.8 


14.2 


BEL AIR 


8.5 


16.4 


WESTMINSTER. 


10.1 


21.0 


CONTRACTORS 


3.2 


6.2 



LAST 
, MONTH 
(1) (2) 



SAME MO. 
LAST YR. 
(1) (2) 



1 


-MONTH 


(1) 


AVG. 


(2) 


5.6 


10.8 


3.1 


5.9 


9.6 


17.8 


4.9 


8.6 


6.4 


U.4 


5.7 


12.1 


6.8 


14.2 


8.5 


16.4 


10.1 


21.0 


3.2 


6.2 



NOTES. (1) VEHICLE-MILES/FIELD JOB 
(2) MAN-MI LES/FI ELD JOB. 
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INSTALLATION DIVISION 

MONTHLY OPERATIONS REPORT 

DIVISION DETAIL 

DISTRIBUTION OF WORK TIME BY PERSONNEL CLASSIFICATION 

(EQUIVALENT MAN-DAYS ) 



CURRENT 
MONTH 
(1) (2) 



LAST 
MONTH 
(1) (2) 



SAME MO, 
LAST YR, 
(1) (2) 



1 -MONTH 
AVG. 
(1) (2) 



CLASSIFICATION 



M.+r . 

TRANSFERRED 

BORROWED 

CONTRACTOR 

SUB-TOTAL 

TOTAL 



1609 

32 
196 
1838 



652 

22 
88 
761 



1609 

32 
196 
1838 



652 

22 
88 
761 



2599 



2599 



NOTES. (l)PRODUCTIVE WORK ( 2 )NON-PRODUCTI VE WORK 



2 5 
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INSTALLATION DIVISION 

MONTHLY OPERATIONS REPORT 

ANNAPOLIS DETAIL 

DISTRIBUTION OF WORK TIME BY PERSONNEL CLASSIFICATION 

(EQUIVALENT MAN-DAYS ) 



CLASSIFICATION 



CURRENT 
MONTH 
(1) (2) 



LAST 
MONTH 
(1) (2) 



SAME MO, 
, LAST YR, 
(1) (2) 



1-MONTH 
, AVG. 
(1) (2) 



M.HI. 

TRANSFERRED 

BORROWED 

CONTRACTOR 

SUB-TOTAL 

TOTAL 



170 



86 



173 87 
260 



170 



86 



173 87 
260 



NOTES. (l)PRODUCTIVE WORK ( 2 ) NON-PRODUCTI VE WORK 
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INSTALLATION DIVISION 
MONTHLY OPERATIONS REPORT 
DIVISION SUMMARY 
DISTRIBUTION OF PRODUCTIVE TIME BY FUNCTIONAL CLASSIFICATION 

(hrs/man-day) 
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CLASSIFICATION 

SUPERVISION 

INSPECTION 

CLERICAL 

INSTALLATION 
SELF-CONTAINED 
TRANSFORMER 
MISCELLANEOUS 
TOTAL 

STORM TROUBLE 

T OTAL 



CURRENT LAST SAME MO 
MONTH MONTH LAST YR 



.62 
lol3 
.74 



2.51 
.18 
.48 

3.17 

5o66 



1-MO, 
AVGo 



.62 
lol3 
.74 

2.51 
.18 
.48 

3.17 

5.66 



istribution of job-related non-productive time by functional class. 

(hrs/man-day) 



CLASSIFICATION 

HEADQUARTERS 

PREPARG & COMPLTG DAYS WORK 

MISCELLANEOUS 

TOTAL 

FIELD 
CGI 

TURN-BACKS & TURN-DOWNS 
MISCELLANIOUS 
TOTAL 
TOTAL 



CURRENT LAST SAME MO 
MONTH MONTH LAST YR 



.30 
.18 

.48 



.06 
.08 
.13 
.27 
.75 



1-MO, 
AVGo 



.30 
.18 
.48 



6 

.08 
.13 
.27 
.75 



distribution of other non-productive time by functional class. 

(hrs/man-day) 

current last same mo 1-mo. 
month month last yr avg. 

classification 



MEETINGS 
TRAINING 

ON-THE-JOB 

OFF-THE-JOB 
ABSENCES COUNTED AS WORK TIME 
TOTAL 



.05 

.10 
.30 
.03 
.48 



.05 

.10 
.30 
.03 
.48 



2 N 7 ^ y A /; 



INSTALLATION DIVISION 
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MONTHLY OPERATIONS REPORT 
ANNAPOLIS SUMMARY 
DISTRIBUTION OF PRODUCTIVE TIME BY FUN< TIONAL CLASSIFICATION 

(hrs/man-day) 

current last same mo 1-mo. 

CLASSIFICATION MONTH MONTH LAST YR AVG. 
SUPERVISION 70 

INSPECTION %o - 70 

CLERICAL 73 « 68 

INSTALLATION * * 73 

SELF-CONTAINED 2 41 o , 

TRANSFORMER 2i 2,41 

.MISCELLANEOUS \ n * 21 

• 60 .60 

3.22 3-2 2 

5 - 32 5.32 



TOTAL ."oo - 60 

STORM TROUBLE 
TOTAL 



DISTRIBUTION OF JOB-RELATED NON-PRODUCTIVE TIME BY FUNCTIONAL CLASS 

(hrs/man-day) 



CURRENT LAST SAME MO J -MO. 

CLASSIFICATION MON"i H MON rn f AST YR AVG. 

HEADQUARTERS 



PREPARG + COMPLTG DAYS WORK .30 

!l9 
.49 



MISCELLANEOUS "iq 

TOTAL 'it - 19 



.49 



FIELD 
CGI 

TURN-BACKS + TURN-DOWNS "ll 

MISCELLANEOUS * 08 

TOTAL * ?1 

TOTAL * 



•02 .02 

.11 
.08 
.21 

•*70 #70 



DISTRIBUTION OF OTHER NON-PRODUCTIVE TIME BY FUNCTIONAL CLASS 

(hrs/man-day) 

current last same mo 1-mo. 

CLASSIFICATION MONTH MONTH LAST YR AVG. 



•03 .03 



MEETINGS 
TRAINING 
ON-THE-JOB 

OFF-THE-JOB 35 
ABSENCES COUNTED AS WORK TIME "o3 no 

TOTAL ,0 ? 



2 OS 



.35 
.03 
.42 



I NS TALLA T I ON D I VI S I ON 
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MONTHLY OPERATIONS REPORT 

DISTRIBUTION OF JOB-RELATED TRAVEL DISTANCE BY WORK UNIT (l) 

(MILES AND PER CENT) 



WORK UNIT 

DIVISION 
DISTRICT 

MONUMENT ST. 

ANNAPOLIS 

ESSEX 

GLEN BURNIE 
HOWARD 

COCKEYSVILLE 
BEL AIR 
WESTMI NSTER 
CONTRACTORS 



CURRENT 
MONTH 
(2) (3) 



27317 

6039 
5512 
2499 
2342 
2119 
4036 
2348 
2422 
2837 



22.1 

20.2 
9.1 
8.6 
7.8 

14.8 
8.6 
8.9 

10.4 



LAST 
MONTH 
(2) (3) 



SAME MO. 
LAST YR. 
(2) (3) 



1 -MONTH 
AVG. x 

(2) (3) 



27317 

6039 
5512 
2499 
2342 
2119 
4036 
2348 
2422 
2837 



22.1 

20.2 
9.1 
8.6 
7.8 

14.8 
8.6 
8.9 

10.4 



DISTRIBUTION OF JOB-RELATED TRAVEL TIME BY WORK UNIT (l) 
• (VEHICLE HOURS AND PER CENT) 



CURRENT 
MONTH 
(2) (3) 



LAST 
MONTH 
(2) (3) 



SAME MO. 
LAST YR. 
(2) (3) 



1 -MONTH 
AVG. 
(2) (3) 



WORK UNIT 



DIVISION 


1396.0 




. 1396.0 




DISTRICT 










MONUMENT ST. 


478.0 


34.2 


478.0 


34.2 


ANNAPOLIS 


208.2 


14.9 


208.2 


14.9 


ESSEX 


173.1 


12.4 


173.1 


12.4 


GLEN BURNIE 


118.3 


8.5 


118.3 


8.5 


HOWARD 


92.0 


6.6 


92.0 


6.6 


COCKEYSVILLE 


152.1 


10.9 


152.1 


10.9 


BEL AIR 


73.1 


5.2 


73.1 


5.2 


WESTMINSTER 


101 .4 


7.3 


101.4 


7.3 


CONTRACTORS 


213.9 


15.3 


213.9 


15.3 



NOTES 



(3) 



EXCLUDING TRAVEL FOR SUPERVISION, INSPECTION, + CLERICAL. 
TOTAL DISTANCE OR TIME. 

PER CENT OF DIVISION TOTAL. 2 <! 9 
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INSTALLATION DIVISION 

MONTHLY OPERATIONS REPORT 

DISTRIBUTION OF JOB RELATED CREW MEMBER TRAVEL TIME BY WORK unit 

(MAN HOURS AND PER CENT) UNIT 



WORK UNIT 

DIVISION 
DISTRICT 

MONUMENT ST. 

ANNAPOLIS 

ESSEX 

GLEN BURNIE 
HOWARD 

COCKEYSVILLE 
BEL AIR 

WESTMINSTER 

CONTRACTORS 



NOTES. 



fi) 



CURRENT 
MONTH 
(1) (2) 



1440.6 




442.3 


30.7 


192.0 


13.3 


133.9 


9.3 


132.4 


9.2 


102.0 


7.1 


227. 4 


15.8 


92.2 


6.4 


118.3 


8.2 


205.8 


14.3 



LAST 
, MONTH 
(1) (2) 



SAME MO, 
LAST YR, 
(1) (2) 



TOTAL MAN-HOURS MINUS TOTAL VEHICLE-HOiiR<; 
PER CENT OF DIVISION DIFFERENCE. 



1 -MONTH 
AVG. 

(1) (2) 



1440.6 




442.3 


30.7 


192.0 


13.3 


133.9 


9.3 


132.4 


9.2 


102.0 


7.1 


227.4 


15.8 


92.2 


6.4 


118.3 


8.2 


205.8 


14.3 



DISTRIBUTION OF JOB RELATED EXCESS CREW MEMBER TRAVEL 

(MAN HOURS AND PER CENT) 



TIME BY WORK UNIT 



WORK UNIT 

DIVISION 
DISTRICT 

MONUMENT ST. 

ANNAPOLIS 

ESSEX 

GLEN BURNIE 
'HOWARD 

COCKEYSVILLE 
BEL AIR 

WESTMINSTER 

CONTRACTORS 



NOTES. 



CURRENT 
MONTH 
(1) (2) 



238.0 




97.5 


41.0 


25.1 


10.5 


26.2 


11.0 


12.7 


5.3 


14.5 


6.1 


36.2 


15.2 


8.0 


3.4 


18.1 


7.6 


41.9 


17.6 



LAST 
, MONTH 
(1) (2) 



SAME MO. 
, LAST YR. 
(1) (2) 



^ A rPMl M L° UE T0 CREW SIZE LARGER 
PER CENT OF DIVISION EXCESS. 



1 -MONTH 
(1) (2) 



238.0 




97.5 


41.0 


25.1 


10.5 


26.2 


11.0 


12.7 


5.3 


14.5 


6.1 


36.2 


15.2 


8.0 


3.4 


18.1 


7.6 


41.9 


17.6 



THAN NECESSARY. 

2 I 
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INSTALLATION DIVISION 
MONTHLY OPERATIONS REPORT 
DIVISION SUMMARY 

DISTRIBUTION OF WORK TIME (#) ( EXCLUDI NG DEFINED TRAVEL TIME) BY FUNCTION 



CURRENT 
MONTH 



'LINE 
NO. 



1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
IS 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 



FUNC. 
NO. 



901 
902 
900 
771 
781 
477 
481 
751 
904 
741 
941 
482 
497 
977 
976 
905 
791 
915 
493 
975 
914 
499 
721 
490 
495 
487 
937 
484 
761 
845 
731 
801 
951 
711 
947 
913 



TOTAL 
TIME (*) 
(MHRSJ 

2,926.4 
1,928.1 
1,619.0 
1,401.7 
1,369.0 
779.6 
456.5 
358.2 
336.9 
334.6 
333.6 
329.6 
269.8 
233.7 
201.5 
200.0 
199.6 
195.3 
192.4 
182.9 
179.0 
153.1 
147.7 
146.4 
140.0 
134.7 
133.3 
130.3 
118.1 
117.6 
104.4 
104.0 
100.6 
97.1 
89.7 
88.4 



NO. 

JOBS 



8 

517 
381 
24 
901 
119 
451 
140 
150 
.876 

257 
57 
85 

166 
48 

250 
55 
31 

370 



238 
93 
27 
54 
30 

142 
7 

101 
31 
48 
55 
60 
22 



average time perf. 

travel func. index 
(mhrs) (mhrs) 

.01 

241.01 

.75 2.71 1.33 

.83 3.59 1.05 
32.48 

.51 1.20 

.57 3.01 2.23 

.07 .75 1.38 

.37 2.39 1.89 

.60 2.22 1.18 

.84 .38 1.04 

.30 .91 
.35 3.54 

.44 2.35 1.42 

.62 1.20 1.16 

.82 4.07 .79 

.72 .77 1.23 
.70 3.33 

.44 5.77 2.17 
.41 

.60 1.45 2.23 

.61 .62 1.50 
.20 1.51 
4.99 

.94 2.47 1.04 
4.34 

.17 .83 1.08 

1.97 16.80 1.40 

.60 1.03 2.22 

.63 3.35 1.75 

.29 2.10 3.92 

.63 1.77 3.14 

.55 1.50 .96 

.62 4.02 2.51 



PERFORMANCE 
INDEX 

LAST SAME MO. 12 -MO. 
MO. LAST YR. AVG. 



1.33 
1.05 

1.20 
2.23 
1.38 
1.89 
1.18 
1.04 



1.42 
1.16 
.79 
1.23 

2.17 

2.23 
1.50 



1.04 

1.08 
1.40 
2.22 
1.75 
3.92 
3.14 
.96 
2.51 



37 


940 


84.3 


65 


.26 


38 


978 


78.3 


13 




39 


843 


77.9 


7 


1.04 




496 


77.7 


71 


.29 


41 


476 


76.3 


17 




42 


483 


76.0 


38 


.02 


43 


919 


74.8 


62 


.33 


44 


933 


70.9 


5 


.67 


45 


946 


64.2 


34 


.60 


46 


841 


54.0 


5 


1.40 


47 


938 


53.9 


51 


.43 


48 


475 


50.8 


8 




49 


972 


50.6 


86 


.01 


50 


910 


50.3 


15 


.58 


• 51, 


942 


50.1 


46 


.29 


52 


480 


50.0 


35 




53 


939 


49.4 


13 


.42 


54 


945 


48.4 


14 


1.07 


55 


944 


47.9 


52 


.68 


56 


743 


45.9 


11 


.59 


57 


909 


45.9 


11 


.93 


58 


846 


43.9 


2 


2.02 


59 


957 


43.9 


5 


.29 


60 


811 


39.2 


11 


.67 


61 


921 


38.8 


54 


.56 


62 


745 


36.6 


7 


.66 


63 


773 


34.9 


9 


.62 


1^64 


917 


31.2 


36 


.77 


479 


31.0 


17 




66 


489 


30.0 


88 


.17 


67 


474 


29.2 


17 




68 


853 


23.3 


2 


.73 


69 


488 


21.9 


47 


.79 


70 


494 


21.9 


30 


.53 


71 


407 


19.0 






72 


821 


19.0 


18 


.83 


73 


020 


18.3 


35 


.03 


74 


908 


17.9 


10 


.44 


75 


922 


16.3 


1 


.33 


76 


713 


15.5 


2 


.58 


77 


492 


14.8 


28 


.68 


78 


907 


14.3 


7 


.40 


79 


918 


14.1 


11 


.66 


80 


844 


13.1 






81 


935 


13.0 


1 


1.17 


82 


765 


12.6 


7 


.17 


83 


755 


12.4 


2 


.37 


84 


983 


11.7 


13 


.16 


85 


953 


9.5 


9 


.09 


86 


911 


9.4 


3 


.88 


87 


865 


9.2 


2 




88 


984 


9.1 


15 




^89 

Oo 


803 


9.0 


3 


.22 


863 


8.3 


2 


1.37 


w 91 


030 


8.2 


10 


.34 
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1.30 


1.80 


1.80 


6.02 






11.13 


1.12 


1.12 


1 .09 






4.49 






2.00 






1.21 






14.18 


7.13 


7.13 


1.89 


1.28 


1 .28 


10.80 


1.00 


1 .00 


1.06 


.96 


- 96 


6.35 






.59 


1.61 


1.61 


3.35 


1.05 


1 .05 


1.09 


1.37 


1 .37 


1.43 






3.80 


2.31 


2. 31 


3.46 


3.12 


3.12 


.92 


1.26 


1.26 


4.17 


3.50 


3-50 


4.17 


1.34 


1 .34 


21.95 


1.48 


1 .48 


8.78 


1.53 


1.53 


3.56 


1.16 


1.16 


.72 






5.23 


3.59 


3-59 


3.88 


1.91 


1 .91 


.87 


1.58 


1.58 


1.82 






• 34 






1.72 






11.65 


.75 


. 75 


.47 






.73 


1.10 


1.10 


1.06 


1.14 


1.14 


.52 


1.20 


1.20 


1.79 


.84 


.84 


16.30 


1.63 


1.63 


7.75 


11.65 


11.65 


.53 


1.36 


1 . 36 


2.04 


.63 


.63 


1.28 


.94 


.94 


13.00 


1.30 


1 . 30 


1.80 


1.67 


1.67 


6.20 


2.57 


2.57 


.90 


.83 


.83 


1.06 


1.06 


1 .06 


3.13 


1.04 


1.04 


4.60 


1.62 


1.62 


.61 


1.82 


1.82 


3.00 


1.47 


1.47 


4.15 


1.56 


1.56 


.82 


1.36 


1.36 



2 I 2 V. //. /<£ 



i 



92 


793 


7.1 


5 


.27 


93 


498 


7.0 


9 




94 


950 


6.6 


3 


.46 


95 


763 


6.5 


1 


.67 


96 


943 


6.3 


5 


.42 


97 


080 


6.2 


16 


.01 


98 


486 


6.0 


7 




99 


200 


5.9 


16 


.31 


100 


491 


5.8 


10 


.62 


101 


851 


5.6 


2 


.45 


102 


963 


4.8 


1 


.60 


103 


916 


4 6 


3 


.30 


104 


783 


4.5 


1 




105 


435 


4.3 


10 


.27 


106 


752 


4.0 


1 




107 


126 


3.8 


4 




108 


725 


3.6 


2 


.89 


109 


090 


3.3 


6 


.22 


110 


485 


2.8 


1 




111 


733 


2.5 


2 


1.05 


112 


602 


2.4 


10 


.21 


113 


969 


2.4 


2 


.67 


114 


715 


2.3 


1 


.50 


115 


813 


2.3 


1 




116 


971 


2.3 


4 


.41 


117 


601 


2.2 


1 


.73 


113 


120 


2.0 


2 




119 


979 


2.0 


1 




120 


434 


1.9 


4 




121 


923 


1.9 


1 


.42 


122 


449 


1.8 


. 7 


.26 


123 


723 


1.7 


1 




124 


958 


1.7 


1 




125 


603 


1.6 


3 


.14 


126 


110 


1.5 


2 




127 


964 


1.5 


1 




128 


432 


1.4 


4 


.24 


129 


861 


lo4 


1 




130 


439 


1.2 


3 


.90 


131 


408 


1.0 






132 


422 


1.0 


4 


.33 


133 


013 


.8 


1 


.33 


134 


116 


.8 


1 




135 


418 


.8 


6 


.45 


136 


437 


.8 


3 




137 


023 


.7 


1 




138 


117 


.7 


1 




139 


428 


.6 


3 


.42 


140 


431 


.6 


2 


.21 


141 


562 


.6 


1 


• 08 


142 


440 


.5 


1 


.42 


143 


609 


.5 


1 


.23 


144 


442 


.4 


2 


.16 


145 


559 


.2 


1 


.17 


TOTAL 




17,957.6 


7,242 
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1.42 


.92 


.92 

• *f Cm 


.78 






2.20 


2.27 


2.27 


6.50 


8.62 


8.62 


1 .26 


.99 


- 99 


.39 


.96 


• 96 


.86 


3. 03 


3.03 


. 37 


.82 


.82 


. 58 


1 .48 


1 .48 


2.80 


.20 


.20 

• Cm V 


4.80 


. 36 


36 

• mJ \J 


1 .53 


.99 


. 99 


4.50 


1.29 


1.29 


.43 


1.13 


1.13 


4.00 


2.29 


2 . 29 


.95 


1.15 


1.15 

™* • * mf 


1 .80 


2.00 


2.00 


.55 


1.37 


1 .37 


2.80 






1.25 


2 .86 


2.86 


.24 






1.20 


2.92 


2 .92 


2.30 


2.55 


2.55 


2.30 


.82 


.82 


.58 


1.50 


1 .50 


2.20 






1 .00 


1 .44 


1 .44 


2.00 






.48 


.91 


.91 


1 .90 


.16 


.16 


.26 


.95 


.95 


1 . 70 


2.22 


2.22 


1 . 70 


1 .32 


1 .32 


.53 






.75 


1 .09 


1 .09 


1 .50 


.38 


.38 


.35 


1 .60 


1 .60 


1.40 


.53 


.53 


.40 


.68 


.68 


.25 


.56 


.56 


.80 


1 .02 


1.02 


.80 


.94 


.94 


.13 






.27 






.70 


.91 


.91 


.70 


.76 


.76 


.20 






.30 


1.31 


1.31 


.60 


.67 


.67 


.50 


1.00 


1.00 


.50 






.20 


.69 


.69 


.20 
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INSTALLATION DIVISION 
MONTHLY OPERATIONS REPORT 
ANNAPOLIS SUMMARY 

DISTRIBUTION OF WORK TIME (*) (EXCLUDING DEFINED TRAVEL TIME) BY FUNCTION 



CURRENT 
MONTH 



PERFORMANCE 
INDEX 



LINE 


FUNC. 


TOTAL % 


NO. 


AVERAGE 


TIME 


PERF. 


NO. 


NO. 


TIME (*) 


JOBS 


TRAVEL 


FUNC. 


I NDEX 


(mhrs) 




(mhrs) 


(mhrs) 




1 


771 


199.8 


71 


.95 


2.81 


1 . 36 


2 


902 


189.1 


4 




47.27 




3 


900 


181.3 










4 


901 


175.8 










5 


781 


124.5 


34 


.90 


3.66 


1.18 


6 


477 


90.8 










7 


481 


58.6 


105 




.55 


1.56 


8 


941 


50.2 


19 


.92 


2.64 


1.37 


9 


915 


40.8 


1 .. 


.91 


3.70 


.74 


10 


845 


34.9 


3 


1.36 


11.63 


.83 


11 


947 


30.6 


18 


.72 


1.70 


1.13 


12 


493 


29.6 


39 


.80 


.75 


1.23 


13 


751 


24.3 


7 


.90 


3.47 


2.67 


14 


937 


21.6 


8 


1.05 


2.70 


1.16 


15 


741 


20.4 


9 


.47 


2.26 


2.09 


16 


933 


20.2 


1 


1.40 


20.20 


10.10 


17 


482 


19.1 


107 


.85 


.17 


.54 


18 


407 


19.0 










19 


484 


18.8 


3 




6.26 




20 


020 


18.3 


35 


.03 


.52 


1.20 


21 


791 


17.6 


12 


.51 


1.46 


1.57 


22 


499 


16.0 


27 




.59 




23 


976 


15.4 


22 


.03 


.70 




24 


801 


12.6 


2 


1.08 


6.30 


3.49 


25 


977 


11.5 


6 


.66 


1.91 




26 


487 


11.3 


2 




5.65 




27 


944 


10.6 


7 


.67 


1.51 


1.52 


28 


945 


10.5 


5 


.89 


2.10 


1.58 


29 


913 


10.1 


3 


.43 


3.36 


2.03 


30 


946 


9.6 


5 


.94 


1.92 


1.28 


31 


984 


9.1 


15 




.60 


1.82 


32 


910 


8.3 


2 


.87 


4.15 


1.45 


33 


030 


8.2 


10 


.34 


.82 


1.36 


34 


721 


7.8 


4 


.50 


1.95 


3.16 


35 


496 


7.2 


18 


.20 


.40 




36 


921 


6.6 


9 


.72 


.73 





LAST SAME MO. 
MO. LAST YR. 



12-MO. 
AVG. 



1.36 



1.18 

1.56 
1.37 
.74 

.83 
1.13 
1.23 
2.67 
1.16 
2.09 
10.10 

.54 



1.20 
1.57 



3.49 



1.52 
1.58 
2.03 
1.28 
1.82 
1.45 
1.36 
3.16 
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37 


480 


6.4 


6 




38 


495 


6-4 


6 


42 




917 

\s x 1 


6 4 


1 5 


32 


40 


080 


6 2 


1 6 
x u 


Ol 
. u x 


41 

~ X 


811 


6 1 


c 


6ft 

. DO 


42 


200 

Cm \J \J 


5 9 


16 

X 


31 

. 2 X 


43 


476 


5 8 


c 




44 


821 


5 6 

O . O 


"T 


ft 1 

• ox 


45 


975 

ml 1 mJ 


5 




1 1ft 

X . X o 


46 


435 


4 3 


1 

X W 


27 

• Cm 1 


47 


483 


4 2 


p 


13 
• x 3 


48 


490 


4 2 


1 3 

X J 


7ft 


49 


773 


4 


I 


1 OO 

x . \J\J 


50 


126 

A C U 


3 R 

O . o 


A 

*T 




51 


474 


3 8 


1 
X 




52 


951 

m* mJ 


3 ft 


1 

X 


77 


53 


904 


3 4 


c 


1 4 
• x*f 


54 


090 


3 3 
_? . o 


f. 
\j 


22 


55 


939 


3 1 

.3 . X 


o 
c 


63 


56 


475 


3 O 

O • V 






57 


731 


2 9 


c 


1 ft 5 


58 


479 


2-5 


1 




59 


489 


2 4 


23 




60 


602 

w V/ c 


2 4 


10 


21 

• x 


61 


942 


2-1 


Cm 


33 


62 


120 

x C w 


2 


c 




63 

mj 


434 


1 9 


A 




64 


983 

ZJ KJ mJ 


1 9 


P 

c 


9ft 


65 


449 


1 ft 


7 


26 
. c. D 


66 


711 

/ x x 


1 8 


1 


1 65 


67 


603 

w V J 


1 6 


■a 


14 


68 


918 


1 6 


p 

Cm 


RO 


69 


110 

X X V/ 


1 5 


P 

c. 




70 


4ftff 


1 5 


7 




71 

1 X 


432 


1 4 


A 

*T 


24 

• C *T 


72 


93ft 

13 OO 


1 3 


A 
*T 


1 1 

.XX 


73 


940 


1 3 


X 




74 


40ft 

"WO 


1 






75 


422 


1 O 


A 
*r 


• DO 


76 


01 3 


o 
• o 


1 
X 




77 


lift 

X X O 


Q 

• o 


1 
X 




7ft 
i o 


41 ft 

*+X O 


Q 

• o 


D 




79 


437 


p 


•3 




80 


439 


. o 


P 

Cm 


PA 


81 

SJ X 


023 


7 


1 

X 




82 


1 l 7 


7 


1 

X 




83 


492 


7 


■a 
_> 


4ft 


84 


42ft 






4P 


85 


431 


. D 


p 


PI 
. c. x 


_ ft. 


562 

mJ \J Cm 


C. 
• D 


1 

X 


HP 


87 


440 


1) 

• 


1 


42 


88 


486 


.5 


1 




89 


609 


• 


1 


23 


90 


761 


.5 


1 




91 


442 


.4 


2 


.16 

• x w 


92 


559 


.2 


1 


.17 


TOTAL 




1,679.2 


848 





1 06 






1 06 






42 


64 

. OH 


•64^ 


3ft 
• oo 


96 


Q A^A 


3 05 


1 19 

X . X 7 


1 1 Q 

x . x y 


36 


ftP 


p p 


p on 






1 4n 


1 5 5 


1 e; c 
X . D D 


1 25 






43 
• •+ o 


1 13 
x . x ^ 


1 1 a 
x . x :> 


2 in 






32 


1 04 


l n a 


4 00 

T . \J\J 


1 71 


1 71 


95 


1 15 

X . X o 


x • X p 


3.80 






3.80 


5.63 


5.63 


1 7n 

X . 1 \J 


P PA 

Cm . OD 


o o c 
• ob 




1 ^7 
X . ^ r 


1.37 
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X . O x 


1.31 


1 45 

X . *T J 


3 4ft 


AD 


2 50 

Cm • ZJ\J 






1 

. x \J 






24 






1 05 


1 26 

X . C \J 


1 PA 
X . C. D 


1 OO 
x . yjyj 


1 44 


1 A A 
X . 44 


47 

• HI 


91 
. ^?x 


Ql 

• yj- 


95 


PR 


o c 

• /If 


P R 




• 95 M 


1 ftn 

X o OU 


^ nn 


3 • UU 


• Do 






pr» 


A 7 




.75 


1.09 


1.09 


.21 






• OO 


l An 

X . DU 


l An 

X . DU 


•ap 


•a 1 

. JX 


• ol 


1 "an 


1 11 

x . X X 


1 11 

X . X X 


• 


c; a 

. DO 


• Do 


• oU 


1 no 


X . U<1 


• oU 


QA 


QA 


• x o 














A A 


A A 

• o*+ 


7n 


Ql 


Ql 


7n 


7 A 
. 1 O 


7 A 


p ^ 

• C.O 


Qn 


Qn 








•an 


1 *a l 
x . o x 


i "a i 

J- • 3X 


An 

• D u 


A 7 


A 7 


Eft 


1 nn 
X . uu 


l nn 
x . uu 


(>n 


nn 


3 nn 
J . uu 


.50 






.50 


.75 




.20 


.69 


:1V 


.20 
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METER AND INSTALLATION DEPARTMENT 
INSTALLATION DIVISION 
MONTHLY OPERATIONS REPORT 
CONTRACTOR DETAIL 

DISTRIBUTION OF WORK TIME (INCLUDING DEFINED TRAVEL TIME) 

BY BUDGET CATEGORY 
(MAN- HOURS) 



SPONSORED 
CATEGORY BY M.&I . 

OPERATION 445.2 

MAINTENANCE 91.5 

CONSTRUCTION 1139.0 

MISCELLANEOUS 81.9 

SUB-TOTAL 1757.5 

TOTAL 

DEFINED TRAVEL TIME 

DEFFERENCE 



SPONSORED 
BY E.D.D. 



27.5 
482.2 

509.7 
2271.8 

419.7 
1852.1 



SPONSORED 
BY OTHERS 

4.6 



4.6 



TOTAL 
449.8 
119.0 

1621.2 
81.9 

2271.8 
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METER AND INSTALLATION DEPARTMENT 
INSTALLATION DIVISION 
MONTHLY OPERATIONS REPORT 

SERVICES INSTALLED AND CHANGED IN DWELLING UNITS 



RESIDENCES 

NEW 

INSTALLED 

OLD 

INSTALLED 
CHANGED 

APARTMENTS • 

NEW 

INSTALLED 

OLD 

INSTALLED 
CHANGED 

TOTAL 



UNDER . 
100 
AMPERES 



26 



26 
161 



220 



48 
52 



100 
AMPERES 
» OVER 



452 



26 
311 



229 



17 
44 



TOTAL 



478 



52 
472 



449 



65 
96 



NUMBER 
PER CENT 



533 
33.1 



1079 
66.9 



1612 
100.0 
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A MULTIPLE -ITERATION PROCEDURE FOR ENGINEERING DESIGN 



Introduction 

The process of design is essentially one of synthesis; but 
in most real engineering design problems direct synthesis is 
out of the question due to the' complex interrelation of variables. 
Methods of analysis, on the other hand, have vastly improved, and 
there is hardly any structure or mechanism that cannot be analyzed 
(with the aid of computers) to determine quantitatively any 
property we may wish to study. 

Fortunately, we can convert analysis into synthesis by means 
of iteration, and obtain thereby a powerful design tool. The 
purpose of this paper is to describe one such procedure that has 
been found effective at the Gleason Works. 

Statement of the Problem 

The elements of the problem are the following: 

1) A set of n variable design parameters (a, b, c ); 

2) A calcuation procedure of any complexity based on . 
the parameters; 

3) A set of n results, functionally dependent on the 
n parameters, whose desired values are known. 

The problem is to establish a procedure for determining the 
values of the n parameters that will yield the desired n results. 



C 
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Obviously, some restrictions are necessary for such a 
procedure to work, and some discussion of them will come later 
in this paper. However at this stage it is sufficient to 
require only that 

1) a solution to the problem probably exists (a 
matter of engineering judgment or experience) 

2) a set of reasonable starting values for the 
n parameters can be chosen. 

Outline of the Method 

It is not particularly difficult to handle multiple 
iteration when the relating functions are simple and short 
enough to make differentiation easy. In many engineering 
problems, however, this is not the case and we need a method 
which does not require any analysis of the functions involved, 
but merely the ability to calculate them rapidly. 

Let us say that if we are given values of three parameters 
a, b, c, we can calculate three quantities, x, y, z which depend 
on a, b,, c. It is not, however, possible to calculate a, b, c 
from given values of x, y, z. Nevertheless we must find somehow 
what values of a, b, c to choose to make x=y=z=0, and we 
know as a practical fact that such a solution exists. 
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If we make a small change in a and determine its effect on 
x, y and z, we have obtained approximations of three partial 
derivatives 

' 6 y <^z i 
^a. ' d a ' ^a ' 

Similarly by stepping b and c small amounts we can complete the 
matrix of' 9 partial derivatives , or rates, and with these we can 
calculate changes in a, b, c merely by solving three simultaneous 
linear equations. Repeated application of this procedure will 
produce convergence, if 

a) there is a unique answer 

b) the starting values of the parameters are reasonable 

c) high accuracy is maintained in computation, 
particularly in the solution of the linear 
equations. 

Figure 1 is a computation flow-chart fox- or.e way of 
handling such an iterative procedure; not all necessary details 
are included, but only enough to indicate the plan. 

We begin by initializing the starting values of a, b, c and 
specifying the small steps Aa, Ab, Ac to be used to get rates in 
the first pass. We also set switch 1 for the first pass. 

The computational block calculates x, y and z, and the 
test block determines whether the errors are sufficiently small. 
If so, we exit from the iteration program. Usually the test will 
fail and control will pass to switch 1. 
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Branch (l) of switch 1 resets Itself to branch (2), proceeds 
to set switch 2, step a, store the last answers, and return to 
computation. On subsequent passes a new set of rates is figured 
following each change in a, b, or c. 

When three sets of rates have been determined, new values of 
Aa, Ab, Ac are calculated which are first approximations to a 
solution. If we had reason to believe the functions were linear 
it would be desirable to substitute all of these changes at once; 
however it Is generally more practical to apply the changes one 
at a time as was done with the original steps, obtaining new 
rates at each stage In preparation for subsequent passes. As a 
result, we only expect that the test may be passed every third 
time through the loop. 

This procedure, for one, two, three or more variables, has 
been of tremendous value in our engineering computation; however 
it must of course be applied intelligently. One particularly 
troublesome condition is unsuspected discontinuity In the 
functional relationships; if such discontinuities exist; they 
may be located in advance, and the program modified to prevent 
stepping across this region. 

Multiple solutions have not been troublesome since their 
existence can usually be predicted; sufficiently good starting 
values will force the solution we are after. 
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When the iteration does not converge , and the program has 
been carefully written to avoid round-off errors, we usually 
find that there is a physical meaning corresponding to the 
non-convergence. For example, in certain gear, analysis programs, 
failure to converge indicates either 

a) line contact instead of point contact (infinite 
number of solutions), or 

b) contact at or near the cusp of a generated surface 
(dual solutions very close together). 

Use as a Subprogram (FORTRAN) 

Iteration of the type described has sufficiently varied 
usefulness in our work to justify preparing standard subprograms 
for various numbers of variables. The subprogram approach is 
also desirable for us since the iteration seldom constitutes the 
whole problem, but is more likely to represent merely a detail 
in the main-line computation. 

It is desirable to leave as many controls as possible in the 
hands of the programmer; we therefore set up the subprogram to 
include only the necessary mechanics of iteration, leaving to the 
main-line program such litems as 

a) initializing the variable parameters 

b) testing the results 

c) taking action on failure of iteration. 

We also permit the programmer to specify in his CALL statement 
the values of the initial steps of the parameters. 



It is recommended- that the iteration loop be made within 
the range of a DO statement, to provide easy initializing of 
the iteration and an automatic count for stopping iteration 
after a preset number of tries. 

Figure 2 shows a program employing the iteration subprogram 
INTP3A. This program was designed as a short test of the 
subroutine and includes its own data. Naturally a real program 
would be much more complex. 

Starting values of the parameters A, B, C are set at +25° , 
-25°, and +25°, and the functional relations are 

X = sin A + sin B = (A + 3 = 0) 

Y = sin (A + C) - sin 50° =0 (A + C = 50°) 
Z = sin (B + C) +■ sin 10° = (3 + C =-10°) 
It will be seen that the correct final values of A, B, C fulfilling 
these relations are 30°, -30°, 20°. 

Notice that the main calculation and the test lie within 
the range of the DO loop. The limit of 100 for the index I 
permits about 33 tries before exiting; this is probably ir.ore 
than will generally be needed. 

Failure of the test sends control • to the iteration subroutine 
which changes the value of either A,. 3, or C, as indicated by 
the dashed line in the Figure; control is then returned to the 
CONTINUE statement so as to restart calculation at the beginning 
of the DO loop. Passing of the test transfers out of the loop. 
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Two refinements that we generally employ are not shown in 
this example. One of these is to follow the CONTINUE statement 
with a PRINT statement indicating that convergence has failed 
within the specified count, followed by other appropriate action. 
The second is a sense-switch-controlled PRINT statement, just 
before the test, causing print-out of A, B, C, X, Y, Z, I 
each time through the loop for tracing purposes when convergence 
is in question. 

Structure of the Subprogram 

Since the logic of the subprogram is essentially represented 
by the right-hand part of Figure 1, it is not necessary to show a 
flow chart. Figure 3 shows the FORTRAN listing as now being 
used. Switch 1 of Figure 1 is represented by the DO index I, 
and switch 2 by the index K. 

One addition has been made to cover the possibility that 
sometime during the iteration the calculated increment of one of 
the parameters may be zero, resulting in division by zero when 
new rates are being computed. 

In reviewing this program at this time I believe I see 
several ways in which it might be improved. One of these is to 
use appropriate subscripting (if you have a compiler that can 
handle subscripting efficiently); another possibility is to call 
a separate subroutine to solve the set of simultaneous linear 
equations . 

t£ «i ^L^ v 
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Extension of this method to handle other numbers of 
variables should present no difficulty; one can also consider 
the possibility of writing a general procedure for handling 
n variables. 

Comments and Conclusions 

Since we have established this method without proof 
of existence or convergence, it is essential that it be 
applied with care and common sense. There is no magic 
here that will produce answers where none exist. 

Within these limitations there are many engineering 
design problems where this multiple iteration procedure Is 
extremely valuable. 
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INITIALIZE 
o y b, c 

AO, At), AC 

SW1 — 1 



COMPUTE 






X(a, b, 


c) 


Y(a, b, 


c) 


Z(a, 


b, 


c) 


> 






SW1 


— 2 


4 




(i 


<^ SW1 J> 




2 


> 




COMPUTE 


RATES 



STORE LAST X,Y,Z 



a + 


AO 










SW2-*-l 










COMPUTE 
Aa, Ab, ac 








3 



b + Ab 






SW2 


— 2 








1 






c + 


AC 










SW2 






i 




2 
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INTP3A TEST 
ADEG-25 . 
A=ADEG/57.2958 
C=A > <- 

B=-A 

DO 1 1=1,100,1 

X=SINF(A)+SINF(B) I 

I I N T ?3 A 

Y=SINF(A+C)-0. 76604 I 



Z=SlNFCB+C)+0. 17365 

I F(ABSF( X)+ABSF( Y)+ABSF('Z)-. 00002)2,2,3 



1 IT r 5. AT 10 

! £UBaOUT1N 



3 CALL I NTP3A(A,B,C,X, Y,Z, I , .01 , .01 , .01 ) < — - 

1 CONTINUE 

2 ADEG=A*57.2953 
BDEG=B*57.2958 
CDEG=C*57.2958 

PRINT k, ADEG, BDEG, CDEG, I 
if F0RMATUX,3(F7.4,2X), 13) 
STOP 11111 
END 
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SUBROUT I NE I NTP3AC A , B , C , X , Y , Z , I , ASTEP , BSTEP , CSTEP ) 
IF( 1-1 )1 ,1 ,2 



1 DA=ASTEP 
DB=BSTEP 
DC=CSTEP 

3 K=1 

A=A+DA 
k XO=X 

YO=Y 

ZO=Z 

RETURN 

2 GO TO( 5,8,1 1),K 

5 I F( DA) 6, 7 , 6 

6 DXDA=(X-XO)/DA 
DYDA=( Y-YO)/DA 
DZDA=(Z-ZO)/DA 

7 K«2 
B=B+DB 
GO TO k 

8 I F( DB)9, 1 0,9 

9 DXDB=(X-XO)/DB 
DYDB=(Y-YO)/DB 
DZDB=(Z-ZO)/DB 



I K^3 

C=C+DC 
GO TO 4 

II I F( DC) 12, 13, 12 

12 DXDC=(X-XO)/DC 
DYDC=(Y-YO)/DC 

DZDC=(Z-ZO)/DC 

13 01 =DYDB*DZDC-DYDC*DZD3 
D2=DXDB*DZDC-DXDC*DZDB 
D 3 = D X D B * D Y D C - D X D C * D Y D B 

■ D E N- X DA* D 1 - D Y DA* D 2 +D Z DA* D 3 
DA=( Y*D2-X*D1-Z*D3)/DEN 

DB=(DXDA*(Z*DYDC-Y*DZDC)-DYDA*( Z*DXDC-X*D 
1 +DZDA*( Y*DXDC-X*DYDC) )/DE.M 

DC=( DXDA*( Y*DZD3-Z * DYDB ) -DYDA * C X" 
1 +DZDA*( X*DY0B-Y*DXD5 ) )/DEN 

GO TO 3 



■DZDB-Z* 



Fig. 3 
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A Distribution Feeder and Substation Load Forecasting System 



Introduction 

In the Baltimore Gas and Electric Company, peak electric loads are 
forecast for the succeeding five years. A separate five-year forecast is 
made for summer and winter, each. 

For purposes of forecasting, the Baltimore System consists of a group 
of master substations whose peak loads are related to the System peak load 
by a factor which includes losses and diversity. The typical master supplies 
several customer and distribution substations over subtransmission circuits; 
masters may or may not supply local distribution load. A substation consists of 
one or more transformers, each of which supplies one or more feeders. Where a 
substation includes two or more transformers, there is generally more than one 
supply circuit. 

Metering 

Substations and master substations have integrating watt and var meters, 
integrating watt and graphic var, or type RI (watt and volt-ampere) meters. ^ 
All integrations are for a clock-hour interval. A number of magnetic tape ^ 
recorders, three to a set, recently have been installed - to record watts, 
leading vars and lagging vara. For this type installation, a program has been 
developed that selects and tabulates the daily clock-hour mva peak and its 
components and the daily raw peak and its corresponding invar. 

Feeders at attended substations have Indicating ammeters, one to a 
phase, whose indications are recorded hourly. Many feeders at unattended 
stations have peak demand ammeters, one to a phase; the peak indicators are 
read at intervals, generally of two weeks, and then reset. A few feeders have 
graphic averaged three-phase ampere hourly indications. Other feeders are 
metered in pairs, and some are without metering; in these special cases, spot 
checks are used to get an estimate of their loads* 

Indicating and graphic voltmeters are located on various buses around 
the system. 

Purpose of programs 

Forecasts are required for all feeders, all distribution substations, 
some customer stations, and all master substations. The Baltimore System fore- 
cast is made separately. A check is made on the diversity between the Baltimore 
System and master substation peaks to determine if it Is satisfactory. 

There follows an outline of a set of fbrtran programs developed in 
connection with the feeder and station forecasts. 




23 ! 



2- 



Program It Peak load data 

The first program is concerned with the interpretation of actual load 
data from the most recent season* Its objects are to calculate the seasonal 
mra peak and its xmr and ravar components for each feeder and substation, and 
to calculate the diversity factor between each station and its associated 
feeders* 

Inputs for each item include actual peak load data, the invar of 
capacitors in service at the time of the peak, the previous year's corres- 
ponding seasonal mw peak component, and the mw evaluation of load transfers 
since the previous year* 

In this and other programs, capacitors connected on distribution feeders 
and on substation buses are treated as mvar sources and their outputs are added 
algebraically to feeder or station mvar to determine load mvar* Calculations 
concerned with power factors, growth rates, and diversity factors are always 
related to load mvar* 

This program is constructed to calculate any of the missing items of mw, 
mvar and mva when supplied with one of the following three sets of data: mw and 
mvar; mva and mw; amperes, volts and power factor* In the case where a 
station's input data consists of mva and mw, a test load power factor is in- 
cluded in order to provide a way for the machine to test whether the mvar which 
it calculates is leading or lagging* This power factor is based on a separate 
history of information relative to the station's load power factors at the time 
of its summer and winter peaks* 

Outputs include mva, mw, mvar and load mvar, power factor, and a year-to- 
year percentage load growth based on a constant load area. Mw and mvar 
diversity factors between the station and the feeders which it supplies are 
produced for each substation* Test power factors are replaced in output by the 
actual computed power factors* 

Program 2t Weather adjustments 

A part of the variation in actual peak loads from year to year is caused 
by differences in weather* Weather effects tend to obscure basic patterns of 
load change* Much of the variation can be eliminated by the reduction of actual 
peaks to peaks under normal peak load temperature conditions* The adjusted 
figures reveal more clearly the year-to-year growth which is occurring* In our 
system, weather adjustments are determined by means of a linear regression 
program* 

The program Is applied to substations only. It is based on information 
for a twenty-week period in summer, a ten-week period in winter* Stations are 
divided into two groups, those that normally peak in daytime and those that 
normally peak in nighttime* Inputs consist of two sets of weekly maximum 
temperature indices, one each for day and night, and weekly maximum mw loads 
for each station* Output for each station Includes the regression constants of 
its load on the temperature index, the average mw peak and average temperature 
index, the normal temperature index and the corresponding mw load computed by 
the program* The ratio of the maximum weekly peak load to the load at the 

o o o 
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normal temperature index is also produced; this becomes a gauge of the normality 
of the season's weather, which is either extreme, normal or mild, according to 
whether the ratio is high, normal or low. Produced, too, is the computed load 
at a very high temperature index; this makes available a distant point for 
assisting in locating a line for visualization. The slope of the line indicates 
whether and how much the station is temperature-sensitive. 

Program 3: Feeder and substation forecasting 

The major program has inputs including actual peak load data, reference 
raw and load ravar to be used as the current year's base load, rating of capacitors 
assumed to be in service during the period forecast, growth rates, mw and mvar 
diversity factors, and various adjustments* 

Items to be forecast are divided into several classifications: feeders, 
8lngle»feeder substations, raulti -feeder substations, customer substations, loads 
to be included in diversity calculations but not forecast per se, and master 
substations* Each classification has its own path through the program. Within 
limits, the inputs are intermingled* The identification fields are used for 
discrimination between classes* 

The reference mw and load mvar are selected by the forecaster after due 
attention is paid the actual peak* the estimated peak under normal weather 
conditions, previous forecasts, and tfiatever additional information is deemed 
relevant. These references become the effective current year's peak load on 
which the forecast is based. Growth rates are entered for the first and fifth 
years of the forecast. The machine will apply constant or smoothly-varying 
rates to the consecutive annual peaks, beginning with the references, according 
to whether the specified growth rates are the same or different. A zero growth rate 
is acceptable. 

Separate mw and mvar diversity factors are provided for because, among 
other re aeons, losses sometimes are involved in the calculations. Diversity 
factors are entered only for multi-feeder substations and master substations. 

Adjustments to the reference -rate process are necessary when, in the 
judgment of the forecaster, any change is likely to occur within a load area 
which will affect the continuity of normal growth. Such changes take many forms. 
For example, an abnormally large number of houses of the same type as now exist 
within an area may be scheduled for completion within the year. The forecaster, 
therefore, may decide that it is necessary to add an abnormal increment of load 
for next season, yet allow succeeding years to change at the area's normal rate. 
Or perhaps a commercial area is being developed which is likely to add large 
loads for the next two years but little additional load afterwards. The fore- 
caster may decide in this case that he will compute the entire five-year fore- 
cast at the normal growth rate without including the new load and make an 
incremental adjustment to each of the five years in order to account for the 
new load. To allow fbr many possibilities, the program permits two types of 
adjustments, one for loads which will be included in, the other for loads which 
will be excluded from the application of growth rates. Either or both types 
can be included in any portion or all years of the forecast. Therefore a wide 
latitude is available to the forecaster. 
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For each item a complete set of input data can be entered on from two to 
four cards, according to whether and what type of adjustments are applied* The 
first card for each item includes a field for the variable indicating how many 
cards are to be used. Input data are assembled by masters; within the master, 
by stations* Items are processed one at a time. As each card is read, checks 
are made on the correctness of its order and on whether it is the final data 
card for the item* All Identification fields on each card are checked* to 
prevent the mixing of data* 

Each item proceeds by its appropriate path to its forecast peak loads* 
On the way, all distribution substations and customer stations set a program 
switch to positive values* and cumulate their peak load components* The switch 
is set to zero before the next item's data are read* Individual feeders of a 
multi -feeder station cumulate their mw peak loads; the switch is left to have 
the value w zero M . 

In the case of a multi-feeder station* the forecast is computed first 
from reference and growth rate* Later the program switch initiates the computa- 
tion of certain of its forecast peak loads by means of the summation of its 
feeder peaks and its diversity factor* The results are compared* Where the 
difference is outside of a preset allowable percentage difference* the fact is 
so noted In output ; the note serves as an indication to the forecaster that 
further study of the station and its feeders is called for* 

For a master substation* the forecast is computed by use of its 
diversity factors and the summation of the peaks of the stations which it 
supplies* The program switch is set negative* 

The initialization procedure preceding each group of input cards is 
determined by the value (positive* zero* negative) of the program switch. 

Output for each item includes the actual load and the forecast load in 
mva and components for all five years* The mvar of capacitors considered to 
be in service during the period of the forecast appears also* The mvar component 
of the forecast is that which the feeder or station must carry* This output* 
by means of an SPS format modification program, becomes the five-year forecast 
for feeders and substations. 

Program hi The revised forecast 

In practice, the initial forecasts are made strictly on the basis of 
change within a given feeder or station load area. They are released for study 
in connection with system planning and development. The studies result in a 
schedule of load transfers and capacitor installations prior to each season. 

The planning schedule is inserted into a modified forecasting program. 
This has all of the inputs of the earlier program; provision is made also for 
including the capacitor changes and the mw and mvar components of load transfers 
for each of the first three forecast years. 

The output of this program is identical in format with that of the 
initial forecast. The new figures reveal the effects of the planning schedule, 
and assist in planning for the intermediate -term. Full annotation describes 
how the revised forecasts differ from the original. 
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ACTUAL AND FORECAST ONE-HOUR PEAK LOADS 
ADJUSTED FOR PLANNED FEEDER AND CAPACITOR CHANGES 
60 CYCLE FEEDERS AND SUBSTATIONS 
SUMMER, 1963 TO 1968 
MVAHR, MWHR & MVARHR 

STATION, 



FEEDER 


CAPS 


ACTUAL 






FORECAST 






NUMBER 


MVARHR 


1963 


1964 


1965 


1966 


1967 


1968 






TIME 


LOAD 












SION HILL 


















4939 




7/18 


1 • 26 


1.06 


1.17 


1.29 


1.43 


1.59 




.48 


22 


1.22 


1.06 


1.17 


1.29 


1.42 


1.56 




.48 




.31 


- . 03 


• 03 


• 12 


• 20 




VAN BIBBER 


FEEDERS 
















7053 






3.17 


4.09 


4.53 


5.01 


5.54 


6.17 




1.50 




3.17 


4.05 


4.52 


5.01 


5.54 


6.16 




2.40 




-.10 


-.55 


-.35 


-.12 


.12 


• 39 


7054 






1 .94 


2.54 . 


2.71 


2.91 


3.15 


3.42 




1.20 




1.90 


2.29 


2.52 


2.77 


3.05 


3.35 




2.10 




-.40 


-1.10 


-1.00 


-.89 


-.77 


-.64 


VAN BIBBER 


SUBSTATION 


















7/18 


4.74 


6.19 


6.75 


7.38 


8.09 


8.92 




2.70 


22 


4,70 


5.93 


6.59 


7.29 


8.05 


8.91 




4.50 




-.60 


-1.77 


-1.48 


-1.15 


-.80 


-.41 


WEST ABERDEEN 


7/18 














4738 




2.22 


2.45 


2.72 


3.01 


3.35 


3. 73 




1.53 


22 


2.22 


2.45 


2.71 


3.00 


3.31 


3.66 




1.53 




-.15 


-.00 


.16 


.33 


.53 


.74 


HARFORD MASTER 


7/19 


















40.00 


42.96 


46.50 


50.42 


54.71 


59.44 






15 


37.20 


41.66 


45.10 


48.42 


52.02 


55.94 




19.64 




14.70 


10.50 


11.35 


14.03 


16.93 


20.07 



ARSENAL 4913 - 600 KVAR CAPACITORS ADDED -IN 1964. 
BELCAMP INCLUDES A LOAD INCREASE IN 1964. 

CHESAPEAKE CARDENS 4918 - 600 KVAR CAPACITORS ADDED IN 1964. 
CHURCHVI LLE 7051 - 300+J140 FROM SION HILL 4939 IN 1964. 

CHURCHVI LLE 7052 IS A NEW ITEM AND WAS PLACED IN SERVICE AFTER THE SUMMER 

PEAK OCCURRED. ITS LOAD CONSISTS OF ALL CHURCHVI LLE 4KV AND PORTIONS OF 
FOREST HILL 4912 AND WINTERS RUN 4617 . FORECAST INCLUDES NEW LOAD FOR 
HARFORD JUNIOR COLLEGE IN 1964, 1800 KVAR CAPACITORS ADDED IN 1964. 

FOREST HILL WAS RELIEVED BY CHURCHVI LLE 7052 AFTER THE SUMMER PEAK OCCURRED 
300 KVAR CAPACITORS ADDED IN 1965. 

HAMILTON COURT 4927 - 300 KVAR CAPACITORS ADDED IN 1964 AND 300 KVAR ADDED 
IN 1965. ' 

HAVRE DE GRACE 4619 - INCLUDES LOAD INCREASE FOR HARFORD MEMORIAL HOSPITAL 
IN 1964, 300 KVAR CAPACITORS TRANSFERRED TO 4625 IN 1964 AND 750 KVAR 
ADDED IN 1965. 

HAVRE DE GRACE 4625 - EXCLUDES LOAD INCREASE FOR HARFORD MEMORIAL HOSPITAL 
IN 1964, 300 KVAR CAPACITORS TRANSFERRED FROM 4619 IN 1964 AND 750 
KVAR ADDED IN 1965. 

SION HILL 4939 - 300 KVAR CAPACITORS ADDED AND 300+J140 TRANSFERRED TO 
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PROCESSING O-D SURVEY DATA ON 
A SMALL COMPUTER 

By 

A. D. Stasi and M. B. Lipetz 

The title of this paper is not intended to lead anyone to believe 
that Edwards and Kelcey has found a way to process a complex 
comprehensive transportation study on its bare minimum Model I, 
paper tape, 20K IBM 1620. Although there are programs available 
to do this on the 1620, they all require 60K and are limited in the 
number of traffic zones they can handle. Rather I would like to 
describe to you some of the things we have done in the way of preparing 
the data for the larger computers such as the 7074 and 7094. Most 
of us do not have ready nor easy access to these larger computers 
which are used with the Bureau of Public Road's battery of Traffic 
Forecasting and Assignment Programs for comprehensive traffic studies. 
Consequently, when we do get on them, we must use them most 
efficiently. Being certain that our data is as correct as it can possibly 
be and in the proper form for processing is, therefore, of prime 
importance. Editing for correctness and re -formatting of the original 
data is well within the capabilities of the small computer, i.e. d ZO fv.MC 
IBM 1620. We have used all configurations of 1620 's by the way our 
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own Model I - 20K with paper tape I/O; a Model I - 20K with a slow 
card reader I/O and a souped-up Model I 60K with paper tape, card 
reader and 6 magnetic tape drives. This last configuration was 
available at Rutgers University until about a month ago -- we were 
sorry to see it go -- it cost us only $50/hr! ! 

To get down to specifics, we have written editing programs, 
volume factoring programs, zone conversion programs and 
re-formatting programs. 

The remainder of this paper will be devoted to an explanation 
of the purpose and some of the mechanics of these programs. 
I. Editing Program 

O-D surveys are generally based on a sampling of the 
travelling public which is later expanded to represent the entire area 
being studied. It is, therefore, essential that the maximum number 
of survey trip records be maintained in the file. Towards this end, 
it is absolutely necessary that all trip records be edited for validity. 
The specific requirements for the editing program are dictated by the 
particular trip record being edited (Roadside Interview, Home, Truck, 
Taxi, Tourist, Non-Tourist, etc. ). 

Our program simply checks various items of data, both single 
characters and fields, on each card read in. Several methods are used 
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to accomplish the checking. The simplest is a direct comparison 
between the item of data and its parameters for each item. However, 
utilization of this method will slow the program down considerably. 
A faster method involves the use of binary decision tables. Here the 
item of data itself is used to compute a location within a corresponding 
table. The value of the digit (zero or one) found at this location 
indicates whether the data is acceptable or not. 

Another check incorporated into the program is the logic or cross 
data check. This is done to insure that several interrelated items 
do not contradict each other and wreak havoc in subsequent programs. 
For example, a trip entering the survey area at its western boundary 
with an indicated travel direction of West, contains an obvious incon- 
sistency. A zone of origin that does not lie within the county of origin 
also indicates an inconsistency. The only option available to the 
programmer, and hence to the program, is to designate both items 
of data as errors and leave the decision as to which is right and which 
is wrong to the traffic engineer. 

Error indication posed a problem. How could the program clearly 
indicate which items of data are wrong and yet not destroy the original 
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value of the data? The answer was to punch two error cards. The 
first card is simply a duplicate of the input card. The second card 
is also a duplicate, however, it contains asterisks in all the incorrect 
data fields. Printing the error cards on a 407 produces a listing from 
which corrections may easily be made. The two types of error cards 
are tied together by a sequence number assigned by the program to 
each input card. This number permits each output record to be 
uniquely identifiable in all future processing. It also provides us with 
a relatively simple way to insert corrected data cards back into their 
original position in the file. 

To aid in the determination of the necessity for error correction, 



the program categorizes and summarizes the types of errors. Should 
the decision be made to correct the errors, these summaries indicate 
which types of e rrors may economically be corrected by the program 
and which can only be done manually. The program also keeps a count 
of the total number of cards read in and the total in error. 

Ideally, the program should completely separate the acceptable 
data from unacceptable data by punching or writing two files. This 
eliminates the problem of separating the data at some future time by 
makeshift means, facilitates the application of corrections by a program 
and maintains the order of the original input file. On computers 
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essentially equipped with only one output device, the 1620 typewriter 
being much too slow to be seriously considered for high-volume 
applications, the production of two output files becomes a problem. 
An easy solution is an identifying punch in an available card column 
and subsequent separation on a sorter. The best solution is to 
utilize a 1620 with both punched card and magnetic tape input/output. 
The acceptable data file could then be written on the tape and the 
error file punched on cards. This has the added advantage of placing 
the acceptable data on the proper medium for input to the larger 
computer at relatively little extra cost. 

A program for editing 70, 000 trip records has been satisfactorily 
run on a 20K 1620 with card reader, and one for editing 500, 000 trip 
records on the souped-up 1620 previously described. 

As is evident from this description of our Editing Program, 
quite a bit was packed into it. There is need for more information, 
however, such as what are the numbers of correct and error records 
at each interview station. This information is valuable and often 
will aid in pinning down the location of large blocks of errors. 



O C- 9 
*j 



-6- 



A station volume accumulation program was, therefore, 
written to summarize, by interview station, the output of the 
editing program. So used, it produces an up -to- the -run tabulation 
of the number of acceptable trips through each interview station. 
By using the error cards as input, a tabulation of unacceptable 
trips can also be produced. These two figures for a particular 
station provide an indication of how many, if any, unacceptable 
trip records must be corrected to increase the sample to a 
satisfactory level. 



Part one of the program reads and accumulates the number 
of trips for each station. The address of the proper accumulator 
is computed directly from the station number, thereby eliminating 
the need to search a table for each record. The second part tests 
each accumulator for zero and, if not zero, punches a card containing 
the corresponding station number and the number of trips through 
that station. After all the non-zero volume stations have been 
punched, the program types the total number of input records and 
the number of input records which did not have a logical station number. 
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After both the editing and summary runs are complete, a 
decision must be made to either discard or attempt to correct 
the unacceptable trip records. It has been our experience that 
these records usually comprise a significant portion, between 5 and 
10 per cent, of the total number of trip records. The usual decision, 
therefore, is to correct all the records that are correctable by 
a program and discard the remainder. Many errors seem to occur 
in groups. One interviewer at a particular station, for example, 
consistently entered the wrong hour period on his interview forms. 
All the trips recorded by this man at that station on that day contained 
the wrong time. This can be corrected by scanning the other records 
for that station and determining during what part of that day the 
station was being operated. Errors such as this lend themselves 
well to correction by a program. These corrections normally 
increase the acceptable portion of the interview sample to approxi- 
mately 98 per cent. 

The correction or FUDGE program, as it has come to be 
known, is a conglomerate. It contains the appropriate routines from 
the editing program that originally discovered the particular errors 
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to be corrected. In a sense, the errors are re-discovered by the 
program. This time, however, instead of simply indicating the 
errors the program applies corrections and punches the corrected 
card. A card is punched for each error card read whether corrections 
are made or not. 

After the unacceptable trip file has been essentially corrected, 
it is run back through the editing program. This is necessary to 
provide a final check and to weed out the relatively small group of 
records that contain items of data which were not corrected and 
are, therefore, still unacceptable. These records now become 
the final unacceptable trip file. The acceptable trip records are 
combined and tabulated by the station volume accumulation program. 
A tabulation is also made of the unacceptable records. Processing 
of these records is now complete. They are deleted from the survey 
data at this point. 

As previously mentioned, there is presently available from 
the BPR a package of programs related to O-D surveys. These 
programs are all written foi a definite purpose and have definite 
requirements relative to their use. This is not to say, however, 
that we cannot fool the computer into thinking it is doing one thing 
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while we are actually making it do something else. For example, 
a program written to prepare tables of trips taking place between 
various zones based on various trip purposes has been used to prepare 
tables of trips between specific zones based on the interview station 
rather than the trip purpose. This was accomplished by placing a 
"dummy code" in a specific field and defining this field to the program 
as the purpose field. Not really difficult and • not really fancy, but 
a simple 1620 program did the job for us and a simple 1620 placed 
the factor. A not so simple 7094 produced the tables which would 
have had to be produced manually otherwise. 

Another problem frequently encountered in O-D surveys has to 
do with the numbering system used to designate the survey zone. 
These survey zones frequently require in excess of five digits to 
uniquely identify a trip end. These survey zones are later combined 
and must be reduced to a 5-digit maximum code in order to be 
acceptable to the BPR programs. Again this is a job for a small 
1620 -- we have done this for 70, 000 records on a 20K card 1620. 
The 500, 000 record job will be done on a 7074 although we might 
have tried it on the souped -up 1620 if changing zones were the only 
changes required and it had not been moved out. 
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These examples show how we have made use of our computer 
for preparing data from an O-D survey. There are many more uses 
which we will undoubtedly uncover in the future. We feel our 1620 
has a definite place in conjunction with the larger computers and 
intend to make maximum use of it. 
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NCE Load and Go Fortran was written to provide a 20K Load and 
Go system with greater arithmetic abilities than the IBM Gotran 
system. In order to conserve space it was necessary to omit or 
simplify some features of Fortran I. Whenever possible features 
were provided to replace those which had to be eliminated. These 
substitutions make it necessary for the programmer to compile in 
the Fortran source program some things which are handled automatic- 
ally in other systems, however in many cases additional usefulness 
was created. The original description of the system states that 
subroutines cannot be added, however this is not exactly true. 
Because of space limitations, no facilities for adding sub- 
routines have been included, but any user may add such subroutines 
as will increase the processors utility. Of course he must do 
so with the realization that, at least for those restricted by a 
20K machine, space is at a premium. 



2- 

Recompilation will be necessary to add subroutines, but an 
unlimited number of functions and up to four new nonarithmetic 
pseudo op codes can be added* Functions can be added by merely 
including their names and the associated addresses in the function 
table symbolic location FTBL. The table format is an eight digit 
constant representing the alphameric function name followed by a 
five digit constant for the address of the execution routine. The 
address must have a flag over the low order digit. Note that 
functions can be made removable by locating them after the I/O area 
and properly relocating the record mark placed by the initializat- 
ion routine and also changing the address used to initialize 
several fields. (Chi, output, wk, and associated constants should 
remain in their present relationship but may be moved to any location, 
between 10K and 20K. See for example the routine at location 15821; 
on the listing. For maximum space the EXP and I5g routines can be 
eliminated bat when this is done the instruction at 07380 should 
be made to branch to an error message, since the #* operation 
requires these subroutines. 

To add new features to the system, additional nonarithmetic 
type pseudo instructions can be added. Because of the way this 
part of the interpreter is set up there is a limit of four more 
which can be added. The length of the nonarithmetic pseudo instruct- 
ions is variable. The op code must have two digits and the 
instruction must be terminated by a record mark. All operands are 
two, three, or four digits long and are of four types: 

2 6(i 



(1) Variables and constants use the four-digit symbol table pseudo 
address which must be decoded, by SUBER; (2) Statement numbers are 
represented by their three-digit symbol table address; (3) USE and 
do end pseudo ops -which may have to refer to statements which have 
no statement number use the four low order digits of the location 
of the pseudo ops for that statement; (k) IF (sense switch) 
pseudo ops contain a two-digit indicator as the first operand. 
Currently the maximum size of pseudo instructions is limited to 
26 digits by the size of the area WK. 

The plot pseudo instruction is complied by recognizing the 
word PLOT on the source statement. The control is passed to the 
I/O compiler routine which assembles the operands in groups of 
five. If more operands are present, a new pseudo op is produced. 

The execution routine increments the card number and then 
enters a loop which puts a character in the output area for each 
variable. When there are no variables left in the list, the card 
is punched and control returns to the interpreter to execute the 
next pseudo instruction. If more than five variables are needed 
on a plot or if axes are desired this routine can be easily modified 
to provide these features. More variables could be accommodated by 
changing the plot routine to examine the next pseudo op before 
returning control, and returning control only if it were not 
another plot. Note that the card numbers in columns 79 and 80 also 
provide a means of sorting out plot cards from simultaneously 
punched data output. 



NON - ARITHMETIC PSEUDO INSTRUCTION TABLE 



FORTRAN Pseudo 
Equivalent op code 



END 


+ 


00 


*FXFLT 




00 


*RSGN 


+ 


01 


*DO END 




01 


STOP 


+ 


02 


*DO START 




02 


PAUSE 


+ 


03 


GO TO 




03 


READ 


+ 


Oip 


ACCEPT 




oU 


PRINT 


+ 


05- 


PUNCH 




057 


*IF( ) 


+ 


06 


IF (sense 
SWT 

USE 




06 


RETURN 




07 



Description 


Length 


Operands 


Drancn uo coinpi.i.er 


c; 
z> , 


Y 
A 


Change mode of FAC 


3 


X 


FAC = - FAC 


3 


X 


Increment Indexj check 


7 


c 


for Index Limit 






Branch to Intrepreter 


3 


X 


Initialization 






bet index bquax t;o initial 


1 o 

1" 


A A A A 

J\ } A j A ^ XV 


Value 






Halt 


3 


X 




6 


B 




3-23 


X or From 






1 to 5 






TYPE A 


Tests FAC For -,0,+ 


12 


B,B 3 B 


Tests Indicator 


11 


D,B,B 


Stores LOC in Table 


6 


B 


Returns to LOC in Table 


3 


X 



* These routines are not exact equivalents of FORTRAN Statements. 
Operand types 

A Pseudo Address - The three center digits of a symbol table 

address the first and last being always 1 and 9 respectively 
plus a fourth digit to indicate subscript. 
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Same as A without subscript digit* 

Refers to statement number location in symbol table . 

h low order digits of location of DO start pseudo op. 

2 digits for machine indicator number 

No operands 

On I/O instructions flagged subscript digit indicates 
fixed point variable. 



#**♦#* PLOT ROUTINE FOR LOAD AND GO FORTRAN pA <r£ 0006 

♦** COMPILATION ROUTINE AND CONSTANTS 

*** PLACE AFTER CARD NO. 24 

DSA INPLOT 

*** PLACE AFTER CARD 155 

C PLT*CHl+6 

BE COPLOT 

*** PLACE AFTER CARD 178 

DAC 4 •PLOT 
PLT DS 

*** PLACE AFTER CARD 526 

COPLOT TFM WK+1*80*9R 

B COREAD+12 

DORG *-3 

*** IF PLOT ARRAY STATEMENTS ARE DESI REDt REPLACE CARD 392 WITH 

BNE ER 1 1—120 



**♦ EXECUTION ROUTINE 

*** IF THE PLOT ROUTINE IS DESIRED TO BE 

*♦* PLACE THIS AFTER CARD 1930* IF NOT 
*♦*♦** NOTE THAT NUMBERS MUST BE FIXED PO 

AM LOC-1*4*10 

TR WK*WK+4 

AM P4-l*2*10 

MM FAC*2*10 

BN ER66 

AM 99 « OUT 

CM 99*0UT+154 

BP ER66 

C P4+ll*-99 

TF —99 ♦ CHAR ♦ 7 

P4 BE *+24«*10 

TFM -99 • 21*10 

INPLOT AM LOC-1*3*10 

TFM P4-l*CHAR-2 

BT SWEEP* OUTX 

AM CDNO* 1*10 

BD *+48*CDNO 

AM CDNO-1*9*10 

BD *+24*CDN0-2 

TFM CDNO-2*7170»8 

TF OUT +158* CDNO 

PI BNR P3*WK+1 

*♦♦*♦* EXIT HERE 

WACD OUT 

B LOC 



REMOVABLE* < SW 1 OPTION ) 
PLACE AFTER CARD 1810 
INT AND IN THE RANGE 0-77 



20214 
20226 
20238 
20250 
20262 
20274 
20286 
20298 
20310 
20322 
20334 
20000 
20012 
20024 
20036 
20048 
20060 
20072 
20084 
20096 



31 
1 1 
13 
47 
1 1 
14 
46 
24 
26 
46 
16 
1 1 
16 
27 
1 1 
43 
1 1 
43 
16 
26 



14625 
20321 
00079 
20382 
00099 
00099 
20382 
20333 
0009R 
20346 
0009R 
09139 
20321 
08482 
20145 
20096 
20144 
20096 
20143 
14617 



14629 
000-2 
000-2 
01300 
J4459 
J4613 
01 100 
0009R 
K0415 
012-0 
000K1 
000-3 
K0413 
08735 
000-1 
20145 
000-9 
20143 
0P170 
20145 



12- 
12- 
12- 
12- 
12- 
12- 
12- 
12- 
12- 
12- 
12- 
12- 
12- 
12- 
12- 
12- 
12- 
12- 
12- 
12- 



0007 

■0031 
•0032 
■0033 
•0034 
■0035 
■0036 
■0037 
•0038 
■0039 
■0040 
■0041 
■0009 
•0010 
•001 1 
■0012 
■0013 
•0014 
•0015 
■0016 
•0017 



IF FINISHED 



0019 

20120 39 14459 00400 12-0020 



CDNO DC 4*7070*»+2 

DORG »+2 
P3 BT SjJ c BER*WK+4 

TF W*-SUBl-23 

BNR »+20*FAC 

B ER71 

DORG *-3 

BNF ER74*FAC-3 



2 6 4 



20142 
20145 



PO 70 



20158 26 

20170 45 

20182 49 
20190 

20190 44 



00099 
20190 
09060 



20145 04-0022 
0023 



1 135 J 
00079 
00000 



20370 00076 



12-0025 
12-0026 
12-0027 
0028 
12-0029 



B 



PI 



20358 49 20108 00000 12-0043 



ER74 BTM 
ER66 BTM 

TFM 

B 

DORG 



CHAR 



DAC 
DAC 
DAC 
DAC 
DAC 



ERRORS 74 FLOATING 
ERROR* 77400. 5R1 1 
ERROR • 67600 * 7R 
0UT+154*4559*8 
PI 
*-3 

LI ST 
1 * + 
1 «* 
1 .X 
1 .0 
1 ♦ • 



POINT VARIABLE* 



OF CHARACTERS FOR PLOTTING 



66 OUTSIDE RANGE 
20370 17 027-4 7740R 
17 02704 0760Z 
16 14613 0M559 
49 20108 00000 



20382 
20394 
20406 
20414 



20414 
20416 
20418 
20420 
20422 



JO 
J4 
07 
PO 
-3 



20415 
20417 
20419 
20421 
20423 



0044 
12-0045 
12-0046 
12-0047 
12-0048 
0049 
0050 
02-0051 
02-0052 
02-0053 
02-0054 
02-0055 



*** 



SF 



IN ORDER 
PLT 



TO MAKE THE PLOT REMOVABLE ADD THIS AFTER CARD 1947 



*** IF MORE THAN FIVE VARIABLES ARE TO BE PLOTTED* REPLACE 

**♦ THE B LOC IN THE ABOVE ROUTINE WITH THE FOLLOWING 

**♦ AND MAKK SUITABLE EXPANSION TO THE LIST OF CHARACTERS. 

AM LOC- 1*2* 10 

CM 1-L0C*4*10 

BNE EXIT 

AM L0C-1»1*10 

B PI 

EXIT SM LOC-1«2*10 

B LOC 



THE CARD NUMBERS IN THIS LISTING REFER TO THE CARDS IN THE LISTING OF THE 
UNCOMPRESSED DECK AS DISTRIBUTED BY THE PROGRAM LIBRARY* ALL MACHINE 

LANGUAGE INSTRUCTIONS AND ADDRESSES ON THIS LISTING SHOULD BE IGNORED. 
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A = 0.0 

P I = 3 • 1 4 1 5926536 /2 • 

DO 8 1=1 «41 

DIMENSION IS INI 41 ) 

I SIN ( I )=SIN< A) #35 •+35. 5 

8 A-A+PI 

PLOT* I S I N ( I ) » 1*1*41 

END 



+ 

+ 

+ 

+ 
+ 
+ 

+ 



+ 

+ 

+ 

+ 

+ 





01 




02 




03 




04 




05 




06 




07 




08 




09 


+ 


1 


+ 


1 1 


+ 


12 




13 




14 




1 5 




1 6 




1 7 




1 8 
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p 1 

C I 




o o 




£_ .J 




24 




25 




26 




27 




28 




29 




30 




31 




32 




33 




34 




35 




36 




37 




38 




39 




40 




41 




42 
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AUTOMATIC SCHEDULING AND REGISTRATION IN A SMALL COLLEGE 

by 

Arthur F. Jackson 
Director of Guidance and Computer Center 

The Agricultural and Technical College of North Carolina is a 
small land grant college located in Greensboro, North Carolina with 
an enrollment of approximately 3,000 students. It has five under- 
graduate schools: Agriculture, Education and General Studies, 
Engineering, Nursing, and Technical Institute. Each student registers 
in one of sixty-five different major fields. 

The college has been using unit record equipment in the regis- 
tration process for several years beginning with a Remington Rand 
installation of Punch and Sorter and developing into a complete 
Remington installation. In 1962, the college changed to an IBM Series 
50 including the Sorter, Interpreter, 402 Accounting Machine. With 
this equipment, registration proceeded as follows. 

The Deans of the various schools requested that a specific 
number of class cards be prepared for a certain quarter. This informa 
tion including class code number, class description, meeting place, 
time, and credit hours, was punched into a Master Course Card. These 
cards were then duplicated on the reproducer in the numbers indicated 
by the Deans and then sent to the Registrar. At pre-registration 
time, the students completed a course schedule on a four-part form 
at a pre-registration station. These forms were completed and sent 



to the Registrar 1 s office where clerical help manually matched each 
course on the schedule form with a pre-punched class card. Each 
student's class cards were assembled in an envelope and returned to 
the Data Processing Center where student's name and number were 
gang punched into his class cards. From these cards, class rosters 
and individual student schedule forms were printed on the 402 
Accounting Machine. In cases where cards or courses had all been 
distributed before a student had received all his class cards, his 
schedule was sent back to his advisor for revision. 

In June, 1963, the college accepted delivery of an IBM 1620 
Computer, a card system with 20 K Memory positions and without 
automatic divide. It was used primarily for teaching purposes ex- 
cept for occasional use in the computation of statistics and compila- 
tion of certain registration data. During the 1964 Spring Quarter, 
the 1620 played a prominent part in the registration. This was 
possible because of the development of three programs: STUDENT, a 
program devised by IBM, and two post processor programs designed by 
the author. 

STUDENT, an abbreviation of "Scheduling Technique Using Defined 
Increments of Time", was designed for use in scheduling students into 
a section where the number of sections does not exceed 1000. It is 
designed to store a Master Schedule (not to exceed 1000 sections), 
accept student requests (not to exceed 8 per student), and to place 
students in sections. Students are allowed to designate specific 
sections desired and also to request free time. Students who request 
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specific sections are scheduled until requested sections fill; 
students who do not specify sections are scheduled as long as any 
section is open. When a student is not scheduled, a report is 
written on the typewriter indicating the reason for failure to 
schedule • 

This program is controlled by course code number, section 
number, and load limit. This means that each student request is 
checked to determine whether or not the number of spaces provided 
for that section has been reached. On the basis of these two checks, 
the student is scheduled or not scheduled. The card format for the 
student request allows for twenty-eight columns of information 
about the student while the rest of the request card is allotted to 
the eight courses. 

In order to test the feasibility of STUDENT for use in our 
system, the decision was made to use the class cards and Master cards 
from the 196 3 Fall Quarter registration in a trial run. A computer 
program was, therefore, written to condense the several individual 
class cards for each student into the single request card format 
required by the program STUDENT. The Master Cards were also transformed 
in the STUDENT format. The process was then reversed, the Masters 
were loaded into memory, and the students' requests fed into the pro- 
gram. Every possible conflict situation was simulated in the test. 
The test resulted in the "go ahead" signal for the Spring Quarter. 

Once this decision was made, there remained two problems. The 
nunched output from STUDENT could not be used effectively as the class 
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card which is used as basis for class rosters, admission to class, 
and finally as a grade report. The second problem was that of 
determining the spaces remaining in sections which were still open 
as soon as the scheduling had been completed. This information 
would eventually be obtained from temporary class rosters, but 
administrative officials felt the need to have this information 
earlier than possible by this method. This information was vital to 
the opening of new sections or the deletions of courses in which too 
few persons were registered. Two programs, both storage and search 
programs, were written to achieve these ends. 

The program to punch class cards was designed to use as input 
the condensed output from STUDENT. This was a single card with name, 
I.D. number, and as many as eight course code numbers and sections. 
The program first stored up to 22 5 Master Course Cards in memory. 
It was limited to 225 because of the alphabetic content of our Master 
cards. The program then attempted to match each course on the student 
request card with one of the masters in storage. When there was a 
match, a duplicate of the Master Card was moved to output, the 
student's name and number were added from the request card, and the 
card was punched. 

The search was sequential, from the first master stored to the 
last. There was, therefore, no need to sort the master course cards 
before storing in memory. If no match occurred during a search, the 
computer simply moved to the next course on the card or the next card 
to begin the search over again. 
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The inability to store all of the Master Course Cards 
necessitated four passes with the request cards. The Masters, how- 
ever, were loaded by school groups which made possible the printing 
of class rosters for one school while the computer was punching 
course cards for another school. This process was not timed with 
stop watches, but it was possible to prepare all of the class cards 
within one working day. In addition, the preparation was much more 
complete than ever before. 

The card count program was similar in nature to the program 
for punching class cards. The course code number and section of 
each Master Card was stored in memory together with a two position 
counter. Each unit was thirteen storage positions as follows: a 
four digit course code number, a blank; a two digit section, a blank; 
a two digit number representing the number of spaces allotted to that 
section, a blank; and finally, a two digit counter. Storage was 
searched sequentially, and when a match occurred, the number "one" 
was added to the count position of the section matched. At the end 
of the run, the typewriter printed out the contents of memory where 
the course codes had been stored. This was a report of the number 
of spaces allotted to each section and the number used at this point. 

Pre-registration was conducted as previously with the excep- 
tion that each person listed, in addition to the courses, the course 
code number and section for each course on a special card. These 
cards were sent to the Data Processing Center where, as soon as 
received, they were punched. No sorting was required, but the cards 
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were sorted by school for ease of handling of individuals who could 
not be scheduled. These were then run into the 16 20 with the program 
switches set for no punched output. This afforded an opportunity for 
checking such things as missing master cards, wrong sections, and 
the like. Errors in course code numbers were expected since this was 
the first time the student body had been required to use them. All 
errors thus discovered were corrected and the request cards were then 
run again to discover schedule conflicts. Most of these resulted 
from the choice of favorite hours for classes. Where possible, these 
were resolved by reproducing the request cards, omitting the section, 
or by punching in sections which could not create conflicts. No 
punched output had been obtained on either run. 

With conflicts reduced to a minimum, the request cards were 
once more fed into the 1620, but this time the program switches were 
set to obtain punched output in condensed form. Those individuals 
(their request cards) who were not scheduled on this run were sent 
to the department in which they were enrolled for a resolution of 
this conflict. 

Now, the program for punching class cards was used. Class 
cards were made for each class section for all of those who had been 
scheduled successfully and a count made of the number of seats taken 
in every section. Class rosters were then printed for every class 
and section on stock paper. Schedules were printed on the 40 2 
Accounting Machine for the individual students who had been scheduled. 

In the interim between the final run on the computer and 

f 
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registration , the various administrative officials used the data 
provided by the program described to open new sections, expand limits 
in sections, et cetera. This made possible the scheduling of most of 
those individuals who had not been scheduled prior to this time. 

At registration time, the student picked up his schedule and 
other things such as meal books, et cetera. The time required for 
this was about fifteen minutes as opposed to several hours under the 
old system. Lines moved very rapidly so no long lines were formed. 

Problems in registration were reduced to a minimum but the 
problems in changing courses was not solved. In our system, a student 
must re-take a course he has failed in the next quarter it is offered. 
This created most of the requests for changes. 

The information gained in this effort suggests pre-registration 
in May for the next Fall Quarter, registration of the entering 
freshmen with test scores taken into account, and eventually pre- 
registration for an entire year together with automatic scheduling. 
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AFIT SPS with Simulated TNF, TNS and MF Instructions 



David Olson 

Computing Center 

Newark College of Engineering 

Introduction 

AFIT SPS by Mr. Pratt has just recently become widely 
available through the Program Library. 

The system has many advantages and improvements over SPS II. 

However the system requires a machine with indirect addressing, 
auto-divide, hOK and the TNF, TNS and MF instructions. 

Description of Simulation Method 

We have removed the requirement of the TNF, TNS and MF 
instructions. 

TNS 

The TNS instruction is used only twice in the processor, 
therefore TD instructions were used to simulate this instruction. 

TNF 

The TNF instruction is used several times therefore it was 
felt that a subroutine would be the most efficient method of 
simulating it. This was done as follows: 

Replace the 73 with a I4I, then follow the TNF with BTM 
TNF, *-l. 

The TNF subroutine looks like this: 
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DS 


5 


TNF 


SF 


TNF-l 




TF 


A999,C0N1 




TF 


30ii,l-TNF 




A 


A?99,C0N2 




TF 


310,RST0R 




AM 


TNF-1,5 




TF 


1-TNF.A999 




BB 




C0N1 


DC 


10,6070707070 


CON2 


DC 


10,OOD102030li 




JJO 




RSTOR 


DC 


12,80123^67891 



2. 



This subroutine is essentially the one described by Mr, 
Pratt in the May 1963 issue of the 1620 User Group Newsletter . 

MF 

The MF instruction is also used quite frequently, therefore 
it was also simulated by a subroutine. 
This was accomplished as follows: 

Replace the 71 with a hi then follow the MF with a BTM MF,1-* 

The MF subroutine is as shown below: 



QA.DD 


DS 




MF 


TF 


PADD,QADD 




AM 


PADD,£,10 




CF 


-PADD 


PADD 


DS 






BNF 


*+36,-QADD 




CF 


-QADD 




SF 


-PADD 




BB 





•> r* r» 



3. 



Of course there was some additional rewriting of the processor 
to allow use of the BTM instruction, since the routines in the 
processor which used TNF or MF were quite often entered by another 
BT or BTM instruction. 

Mr, Pratt is to be congratulated on his excellent contribution 
to the growing list of Symbolic Programming Systems. We have 
found no significant errors in his system. 

In our opinion, it is the best kOK SPS available. 
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NCE HIGH SPEED SPS ASSEMBLER 

Kurt Germann and George Rumrill 
Newark College of Engineering 

Presented at the May meeting of the IBM 1620 Users' Group 
in Washington^ D.C. 

This assembler is an attempt to provide Users 1 Group members 
with an assembler that has the language capabilities of AFIT SPS, 
and a symbol table size of the order of LAMP (File 1. 00. Opt in a 
20K system. Although some compromises had to be made, the resulting 
system, provides space for h$0 labels, and has a language capability 
similiar to IBM 1620/1710 SPS. 

The need for an assembler with a large label capacity in 20K 

developed when the Computer Center Staff of Newark College of 

Engineering was writing NCE Load and Go Fortran (File #2.0.029). 

During compilation of the Load and Go System, the IBM SPS Symbol 

table overflowed, so another version of SPS was looked for in the 

1620 Library. It was found that OSAP (File #1.01*013) best suited 

the need, bit to be useful to us, several modifications and 

corrections had to be made. These initial modifications were the 

work of Joseph Petersack, an undergraduate student at NCE. After 

the 20K Load and Go processor wad completed, the authors decided 

to follow through on these initial modifications, and to rewrite 
the 

completely OSAP processor. 



The NCE assembler is approximately two to three times as 
fast as IBM 1620/1710 SPS, exclusive of input-output. Tftis means 
that on a Model I 1620 with a 500/250 C p m reader-punch, the assembler 
will run at reader speed on Pass 1, and at punch speed while punching 
an uncompressed object deck on Pass 2. 

The assembler requires card I/O and indirect addressing. Automatic 
divide is required only if division is performed in address adjust- 
ment in the source statements. 

The assembler has been written so that the input format can 
be of two types. It can be standard SPS, or a slightly modified 
version. The modified format is easier to keypunch, and also easier 
to read on a 80 - 80 printout. The format is as follows: 

Columns 1-6 Label 

7 Blank 
8-11 Op Code 
12 Blank 
13 - 50 Operands and Remarks 
51 - 80 Arbitrary 
This format does not allow page and line counts; if they are desired 
the standard SPS format can be used by setting a console switch. 

The output format of an uncondensed object deck is in most 
cases a single card per statement, and can be printed on a standard 
80 - 80 board. The uncondensed format is: 
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0'olurans 1-50 Original Source Statement 

£2 - 80 Machine Language and Sequence Numbers 
This format enables using the object deck as a source deck, making 
the original source obsolete. Besides being more convenient, this 
format produces object decks which are about one half as large as 
those of SPS II. In addition, a compressor is built in, which 
produces compressed decks smaller than those of SPS II. Also 
provided, at the operator's option, is a symbol table punch-out, 
five symbols to a card, in alphabetic order, at the end of pass 1. 

The number of labels that can be stored by a 20K machine 
varies. If, upon initialization, the compressor, its loader, and 
the uncompressed loader are eliminated, approximately h$0 six- 
digit labels can be stored. If the compressor and loaders are not 
eliminated, about 3^0 labels can be stored. If a larger model 1620 
is used the assembler expands automatically, increasing the symbol 
table accordingly. 

Depending on the size of the machine, the size of the program, 
and the number of labels, it is possible to store the source 
statements of a program in core during pass 1. 

If the program fits in core, it can be run in a single pass, 
if it does not fit, however, the source program must be reentered 
for pass 2 as usual. In a 20K machine, again depending on the 
program, 60 - 100 source statements can be stored and processed. 
A 60K machine on the other hand can store 1000 - 1300 source 
statements. Besides reducing card handling, this will also, of 
course, save machine time. 
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In addition to the above, a different error message format has 
been incorporated. Each error message consists of a typeout of the 
actual source statement in error, the type of error, followed by 
the sequence number of the card in the uncompressed or compressed 
object deck that contains the error. To aid in trouble shooting, 
column £l of the uncompressed object card in error contains the 
letter E. 

As far as the language is concerned, all SPS II op-codes for 
the 1620 card system a re iralid, both mnemonic and numeric, with 
the exception of HEAD, TRA, TCD, and SEND. In addition, many of 
the op-codes used in AFIT SPS have been incorporated, as well as 
several interesting programming procedures devised by Richard L. 
Pratt. A variable and fixed length subroutine package similar to 
that of AFIT SPS is also included. 



5. 

Blanks in Source Statements 

Blanks are ignored in the operand field of all source statements, 
including the flag operand of instructions. 

In a DAC statement, the rightmost character of the constant 
does not have to be followed immediately by a comma. If no address 
is specified, only one coi?t,i& i\< needed between the length and the 
co a .-.-t&nt itself. 
Examples: 



DS 


, 1001*10-9 




DS 


, 20002 




TF 


A , B , 1 2 3 h 5 


26 10001 20002 


TR 


k : B , , 


31 10001 20002 


DAC 




00 00000 000 


DAC 


2, a a , , 


Si o* 



* The spaces between the second and third commas will not 
cause the constant to be loaded 

DC 5,3 , , 0000 t 

DAC Statements 

The r:.--:' '^j,: 1 : ^U. csn not be greater than 35 because of the 
restriction on the length of the source statement (columns 1 to 50). 

DSAC Statement 

The Define Special Alphameric Constant is the same as the DAC 
except no flag is placed over the high order digit. This allows long 
alphameric constants to be constructed by one DAC followed by DSAC's 
and this long constant can be moved by a transmit field instruction. 

*> c 

* 



6. 

DC and DSC Statements 

A) The processor dan supply any number of lending zeros, up to 
the maximum constant length of 99999 

Example : 

X23 DC 5600,® 

This will cause $$99 ^eros followed by a record mark to 
be loaded into care, the label will refer to the location 
of the record mark and the high order zero will be 
flagged. 

B) The ©sign which indicates a record mark may appear anywhere in 
a constant. 

Example: 

DSC 6,-@L23®3 

Will cause 5123** to be stored. 

C) Any character of the constant may be flagged by punching a 
minus sign over that character in the source statement. 
Example: 

DC 7, Mli*P8 

Will cause OOUti 78 to be stored 
DC 1, «3 will produce $ 
DC l,-@ will » * 
DC I,* » » * 

DSC " » # 

D) Constants may be preceeded by a plus sign if desired. 
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DFC Statements 

Floating point constants , ls required by the subroutines, may 
be specified as follows: 

first operand - mantissa length, which may be symbolic, 

(must be less than £0) 
second " - mantissa (trailing zeros automatically 

supplied. ) 

Third " - exponent (may be symbolic) 

fourth " - address (if desired) 

The label, if present, will refer to the units position of the exponent. 
Example : 

DFC 10 ,-2,1 

will produce *2000000000 01 

Operands 

The previous IBM restriction on - is removed and this will 
now be assembled correctly. 
Example: 

TDM A , - l£ 10001 00000 

Division is now allowed in address arithmetic (if the auto divide 
feature is available). Division can be used in conjunction with 
subtraction and multiplication to produce truncation. 
E sample: 

AM B/A * 1000, B/A +213 U 02000 00215 

Record Marks in the Qtt position of instructions are frequently 
required. This usually has required the two instructions: 

TFM A ,, 10 

DC 1,(2),* 

However on this system an R in the flag operand will cause a 
record mark to be placed in the Qll position of the instruction: 
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Example : 



TFH 


A 


) > 


10R 


results 


in 


16 


10001 


0000* 




TFM 


A 


9 9 


R 


u 


it 


16 


10001 


0000* 




TDM 


A 


9 9 


11R 


II 


ii 


IS 


10001 


0000* 





PSA Statements 

The number of operands in a DSA or DSSA is no longer limited 
to ten, but may be any number of address operands up to column 50. 

DSSA Statements 

This is the same as DSA, except that no flags are set over the 
high order digit of the DSSA f s, and the label refers to the high 
order digit of the first DSSA. 

TABLE DSSA A,B, 10001 20002 00000 

DMB Statements t A 

The length in the DNB and DSNB statements must be no greater 
than 99999. 

DSNB Statements 

Define Special Numeric Blank acts the same as DNB except that 
the label, if present, is equated to the high order position of 
the numeric blanks. 

INC Statement 

Input Conversion Subroutine allows Input data in the free 
format style of AFIT Fortran to be converted to internal floating 
point form: 

€ 
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first operand address where exponent of number is to be stored, 

second operand alphameric record address of data to be converted. 

Data in the input area may be separated by blanks or commas and 

although the input area must contain an alphameric record mark, no 

flags are required. Library No, 1. 6.053* 

OUTC Statements 

Output Conversion Subroutine allows internal floating point 
numbers to be converted to externil Fortran style constants under 
format control. 

first operand alphameric record address where external form is to 

be stored 

second operand address of exponent of floating point number to be 

converted. 

third operand five digits specifying the format: 

In this five digit constant, the first digit represents the 
type of format desired: 

for E 

1 for F 

2 for G 

The next two digits are the length of the field, and the last two 
the number of spaces after the decimal point. 

E 11*. 8 011*08 

F 7.2 10702 

G 16.10 21610 
The E and F conversion work exactly the same as 1620 Fortran. 
The G w.d conversion gives F type output if as many as d significant 
figures can fitted in the space provided. Otherwise, a format of 
E w.d will be used. Library File # 1.6.053 
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DOODLE 
Do- It- Your self Problem Solver 

N-V. Farina d. E. Cowspciny 

An engineer busily at work in the solution of a mathematical problem 
reminds me of a trombone player. He can manipulate a slide rule with 
all the skill of a musician. Unfortunately, slide rules are slow and 
limited in accuracy. 

Suggest to him the possibility of programming his problem for 
solution on a computer, however, and chances are he r ll give you a hundred 
reasons why he can r t. He doesn't know anything about programming; 
Fortran has too many rules to remember; his problem is too small for 
a computer, and he can go on and on with excuses. 

An accountant industriously engaged at making debits equal credits 
reminds me of a pianist. He can finger the keyboard of a desk calculator 
easily as well as Van Clyburn. 

But the typical accountant, like the engineer, believes that he 
himself cannot program his problem for a computer. 

Perhaps it does take some skill to program an engineering or 
business problem. But have you noticed -- it takes no skill to doodle? 
We all do it -- while on the telephone, during a meeting, while waiting 
for the doctor. 

If programming could be made as simple as doodling, then maybe 
engineers and accountants would program. In an effort to simplify pro- 
gramming we devised a system for those people to use and called it 
DOODLE. 

1 2 9 
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My discussion of DOODLE is in three parts: First, what DOODLE 
is; second, how we are inducing engineers and accountants to use it; 
and third, some ideas of what the second generation of DOODLE might 
produce. 

DOODLE is a system which enables the user to write out a problem 
in a very simple way. There are few rules to know and a knowledge of 
programming is not required. We'll show you some examples in a few 
moments. 

DOODLE is an interpretive scheme. It works directly with the 
user's program as he has devised it. The system interprets each 
instruction as it encounters the instruction and executes it. This means 
that no assembly or compilation process need be performed before the 
problem is given to the computer. Computer time is thus conserved. 
Very often it takes longer to compile or assemble a program than it does 
to run it. This is particularly expensive on one-shot jobs. DOODLE by- 
passes this expense. 

Mechanically, DOODLE is a Fortran n program written for an 
IBM 1620 Computer with indirect addressing, auto-divide, floating-point 
hardware and card I-O. Our Fortran compiler in Johnson City has been 
changed to origin at UK instead of the standard 12K, as specified in the 
Fortran II Operator's Guide, Page 25. («f-o £ Yw».cV>iy\e) 
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I can best continue showing you what DOODLE is by telling you how 
we are inducing our engineers and others to use DOODLE. The words 
n tricking them" seem to be applicable here since the write-up of DOODLE 
does not mention the words "program" or "programming. " The write-up 
pre- supposes no programming knowledge and speaks only in terms of: 
"you have a problem to solve --a computer can solve it for you- -here's 
how you do it. " 

The DOODLER publication exists as a 2-volume work. The first 
booklet is the "Primer" and the second booklet is called "For The Advanced 
Doodler. " Pd like to show you a few of the pages from the Primer. 

(SLIDE 1 - PAGE 1 OF DOODLE WRITE-UP) 

The key word here is "EASY. " On this first page we are hoping to 
spark the reader's interest. 

The second page tells the reader that DOODLE is a method of telling 
the computer what his problem is; that he writes out the problem on a 
simple form; that cards are punched from the form and delivered to the 
computer; and that he gets answers in return. 

(SLIDE 2 - PAGE 3 OF DOODLE WRITE-UP) 

This slide shows how the user tells the computer what numbers his 
problem deals with. Note the illustration. We feel the illustrations, of 
which there are many, are very effective. 

A card will later be punched for every line shown on this coding 
sheet. Notice that item numbers have already been filled in. 




(SLIDE 3 - PAGE 5 OF DOODLE WRITE-UP) 

We have told the reader how he feeds numbers into the computer. 
He will now be told how to tell the computer what to do with those numbers. 

(SLIDE 4 - PAGE 6 OF DOODLE WRITE-UP) 

This slide shows how the "ops* are used. 

Page 7 of the DOODLE write-up reads as follows: 

"You told the computer to divide item 101 by item 102. The result 
became item 105. Then you told the computer to multiply item 103 by 
item 104. The result became item 106. Finally you told the computer 
to add items 105 and 106. The result, item 107, is the answer to your 
problem. " 

Finally the reader is instructed to put the op "END" at the end of 
his solution procedure, and he is shown how the computed coding form 
will look at that time. 

(SLIDE 5 - PAGE 8 OF DOODLE WRITE-UP) 

At item 107, note that a "1" has been placed under the column 
headed "P. " This causes the computer to print out the result of the 
execution of the instruction at item 107. This, of course, is the answer 
to the example problem. 

(SLIDE 6 - PAGE 15 OF DOODLE WRITE-UP) 

Skipping ahead in the DOODLE write-up, page 15 shows a list of the 
ops that are available to the DOODLER. 
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At the bottom of the slide, notice that the publication "For The 
Advanced Doodler" is mentioned for the first time. It is not necessary 
for a DOODLER to ever read the advanced volume. It iic hides such 
exotic features as looping, address modification and use of subroutines. 
We recognize that these features are such that only professional pro- 
grammers would be interested in them or DOODLER enthusiasts. 

The DOODLE write-up continues in this light vein. The reader is 
let step by step to the point where he learns how to get repetitive solutions 
from problems, and how to make use of smybolic nomenclature. 

He is told how to do this in a chapter called "That Mysterious 
Column C. " Here is part of that chapter: 

(SLIDE 7 - PAGE 17 OF DOODLE WRITE-UP) 

In the last part of the booklet, we give an example of how the 
quadratic formula could be written up. 

(SLIDE 8 - PAGE 21 OF DOODLE (MODIFIED) 

Notice that the values for A, B, and C are given to the computer 
at item numbers 101, 102, and 103. 

The constants used by the problem, a zero, a four and a two are 
given next at items 104, 105, and 106. 

The actual programming of the problem start at item 107. We need 
a minus B, so we subtract B from zero and store it in MB, which stands 
for "minus B. " 




We need a B square, so we multiply B times B and put the result 
in B2. The names where results are stored can be made up by the 
DOODLER as he goes along. In the example, we have used names that 
remind us of what has been calculated. Notice that when A is multiplied 
times C, we have chosen as the result name "AC, n and when AC is 
multiplied times four, we have used the result name tt 4AC. n 

There are two answers to this problem, and they are shown at 
items 116 and 117. These are the positive and negative roots respectively. 
Notice the °1" under the column headed "P. * This causes the computer 
to print out the results at items 116 and 117. 

When the computer comes to item 118, and spots the op "END, n 
it goes back to the card reader looking for more cards. If it finds more 
cards, it will load what it finds on top of the program being run starting 
at the beginning of the program and continuing to load until it comes to 
another end card. 

In this example, new values of A, B, and C will be loaded on top 
of the old values of A, B, and C. The program will then be executed 
with the new values, new answers will be printed out, and the computer 
will again look for new input in the card reader. 

It is possible for DOODLE to set up branch conditions, to make 
tests and to branch about within the program depending upon the value 
of test conditions. It is even possible to do address modification and 
branching to subroutines. We don't recommend that the DOODLE user 
get involved with these more sophisticated features of DOODLE. It is 
possible, for example, to get into endless loops. 
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Besides, a person who was this sophisticated would probably be 
better off learning and using Fortran. 

It is easy to find mistakes when using DOODLE. If sense switch 
one is turned on before the program is run, the result of every instruction 
is printed out. 

Before closing 1*11 touch upon some ideas which have come to mind 
about how DOODLE can be used in some novel ways. 

Suppose an engineer has a problem he wants to solve. Rather than pick 
up a coding sheet, writing down the instructions and then having them key 
punched, he can simply reach into his desk, pull out some pre-punched 
cards, put them together, and take them to the computer direct, thus by- 
passing the key-punching step. 

Of course the situation isn r t really as simple as this. The user 
is required to maintain in his desk several hundred cards made up of 
about 100 standard instructions. The next slide shows what some these 
standard instructions look like: 

(SLIDE 9 - SPECIAL) 

The secret in using this idea is that every instruction revolves 
around ARGl and ARG2. If one wants to add two plus two, for example, 
the "desk programmer" would have to put a two into ARGl, then a two 
into ARG2 and finally cause the addition of ARGl and ARG2. The result 
would go to ARGl and the programmer would then usually have to put 
ARGl somewhere in order to use its results later. 
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This sounds very wasteful and slow. It is! We*re not suggesting 
this idea has any practicality at all. Or does it? 

Suppose every standard statement had a unique 2 -digit number 
associated with it. Then, the programmer could call for a standard 
statement by number rather than reaching for it in his desk drawer. 
Suppose he punched up all the standard statements he required for a 
particular problem on cards starting in column 1 and continuing to 
column 80. He could get forty 2-digit numbers per card, which could 
represent a fairly elaborate sequence of events. For example, suppose 
the programmer wants to compute the following: 

X = SIN (e 2 - 1) 

He reads in his data so that X is represented by "standard A" and 
9 by "standard B. n The solution of this equation could then be as follows: 

(SLIDE 10 - SPECIAL) 

We have arbitrarily assigned 2-digit numbers to each of the standard 
instructions shown here. Note that the value for 1 is standard. So would 
other numerical values selected such that the programmer could build 
a number as he needed it. For example, the number 100 could be built 
by multiplying standard 10 by standard 10. 

We need not stop here. All sorts of possibilities exist. Suppose 
2 

the function X - SIN (6 - 1) is to be used often in a program. The 

sequence of operations which compute this function (010214 37) could 

be summarized by another 2-digit number (say 99) which will cause the 
proper sequence to be set up. In this way the programmer can generate 
his own pseudo macro instructions. 
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But now I feel Pm treading in the area of Fortran programming or 
of computer design and will close. I'd like to leave you with this thought: 
If you do see an engineer playing tunes on a slide rule or see an accountant's 
fingers pecking swiftly at the keys of a desk calculator, please hand him a 
pencil and ask him to start doodling. 
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DO YOU HAVE PROBLEMS? 



do you do REPETITIVE WORK 

on a desk calculator ? 

do your problems involve NUMBERS 

and 

WHAT HAS TO BE DONE with those numbers? 



why not have a COMPUTER 
solve your problems for you? 

its EASY 



first, tell the computer what NUMBERS 



191.25 
1654.0 
2.0 
.3 



you are going to use. 



suppose they are: 



on the form shown below, you'll see a column headed OP 
and a column headed NUMBERS 

write LOD and 191. 25 on the first line under these columns. 

do the same for the other numbers. 

to^e ! $ how the form will look after you have done this: 




L.0.P 




ii -•■» 



now tell the computer WHAT TO DO 



to do this, you'll need some OP's. 
you've already used one, 
it was LOD. 

some other OP's look like this: 

ADD 

SUB 

MPY 

DIV 

you can guess what these mean. 



SUPt J 



suppose your problem is this: 

\ 

(1) 191.25 -r 1654 

(2) 2 x .3 

(3) add the two results together. 



the OP's you'll need are: 
DIV 
MPY 
ADD 



here's how you would write out the problem 
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you T 11 have to tell the computer to 

print out item 107. 

place a "l n in the column headed P 

place END as the last OP 



here is how the form looks when you have written out your problem completely: 
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LIST OF OP'S 



OP 


WHAT IT DOES 


LOD 


load a number into the specified item 


ADD 


item A * item B 


SUB 


item A - item B 


MPY 


item A x item B 


DIV 


item A -f item B 


SIN 


sine of item A (radians) 


COS 


cosine of item A (radians) 


EXP 


item A raised to the item B power 


QRT 


square root of item A 


ATN 


arctangent of item A (radians) 


ABS 


absolute value of item A 


LOG 


natural log of item A 


END 


last card of problem solution or of new set of numbers 


*MUV 


move item A 


*RET 


last OP in a subroutine 


*BCH 


branch to item A, B, or C 


♦SUM 


sum from item A to item B 



*For these OP T s see chapter called tT For the Advanced Doodler." 
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suppose you need the value of " ir "in your problem, 
you can tell the computer what the VALUE of " ir n is 
and 

at the same time, write down a NAME for the ir item. 

you will then be able to refer to that item by the 
* NAME you have given it, as well as its NUMBER . 

here's how to tell the computer to calculate the 

area of a circle whose radius is 8.1623 

2 

the equation is A = ir r 
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OP 


A 


B 


C 


OP 


A 


B 


C 


LOD 






A 


ADD 


ARG1 


ARG2 


ARG1 


LOD 






B 


SUB 


ARG1 


ARG2 


ARG1 


LOD 
• 






C 


MPY 


ARG1 


ARG2 


ARG1 


• 
• 
• 








MUV 


ARG1 




ARG2 


MUV 


A 




ARG1 


MUV 


ARG1 




A 


MUV 


B 




ARG1 


MUV 


ARG1 




B 


MUV 
• 


C 




ARG1 










• 
• 








• 

MUV 


ARG2 




ARG1 



am * 



OP NO. 


OP 


A 


B 


c 




01 


LOD 






A 




02 


LOD 






B 




14 


LOD 






ONE 




25 


MUV 


B 




ARG1 




25 


MUV 


B 




ARG2 




40 


MPY 


ARG1 


ARG2 


ARG1 




52 


MUV 


ONE 




ARG2 




34 


SUB 


ARG1 


ARG2 


ARG1 




37 


SIN 


ARG1 
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I 1620 USERS GROUP LIBRARY PROGRAM ABSTRACT 



Title : PDQ Fortran for Paper Tape 

Author; Organization : j. w. Trantum, P. G. Boekhoff MRD-GATG 

Date : April 20 , 196^ Users Group Membership Code : 3193 

Direct Inquiries to : J.- W. Trantum, P. G. Boekhoff MRD/GATC 

7501 N. Natchez Avenue, Niles, 111. 
Phone: NI 7-7000, Ext. 233 

Description/Purpose : PDQ Paper tape is a modification of PDQ card system 
which generates shorter, faster object programs than any other system available 
for machines without Floating Point Hardware. 

Specifications : 

A. Storage: 1. Processor requires I.7250 allowing 275 symbols 

2. Class A subroutines require 6k00 

B. Equipment Required by System: Paper tape, Auto Divide, 20K. 
Program will adjust for additional memory. 

Additional Remarks : Any program written in FO-00^- or U.T.0. may be compiled 

in PDQ. Additional facilities in PDQ include: COMMON statements, batch 
compilation, continuation of i/Q and FORMAT statements, expanded format (A and 
D specifications) and multiple specifications (nFw.d), "Free Format" input, 
improved listing of source program, PROCEDURE statements, TRACE statements, 
MOVE statements, IF statement with continue feature, additional, relocatable 
subroutines, Fixed Point ADD and SUBTRACT in line - No Fixed Constants in the 
Symbol Table. 
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Any proper statement in the F0-004- or UTO languages is allowed. List of 
Permissible Statements. 

A, Arithmetic Statements: 

A = B op C etc. 

B. Control Statements: 

1. GO TO n 

2. GO TO (n^ n 2 , n^), i 

3. IF (a) n.^ n 2 , n 3 

k. IF (SENSE SWITCH i) n , n . 

(any of the n^ in 3 and k above may be replaced by the letter c) 

5. DO n i = m , m^ or 

DO n i = m. , m . m. 

1 2 3 

6. BEGIN PROCEDURE n 

7. RETURN n 

8. END PROCEDURE n 

9. EXECUTE PROCEDURE n 
10. CONTINUE 

1.1. CONTROL m 

12. PAUSE 

13. STOP m 
Ik. END 

15. BEGIN TRACE 

16. END TRACE 

17. MOVE n, A, B or 

MOVE n, A ; B, m 

3 
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C. Input/Output Statements: 



1. 


READ n, list 


2. 


PUNCH n, list 


3- 


ACCEPT n, list 


k: 


PRINT n, list 


5. 


TYPE n, list 



D. Specificatipn Statements: 

1. COMMON 

2. DIMENSION 

3. FORMAT 

Additional Specifications 
A. PROCEDURES 

A procedure is defined as a group of FORTRAN statements which are to be 
executed as a unit more than once in any larger program. Such a group of 
statements is preceded by a statement 

BEGIN PROCEDURE n 

where n is a procedure number. (Note - This number must not appear anywhere 
in the program as a statement number, and cannot be used in more than one 
procedure . ) 

The procedure statements must be followed by the statement 

END PROCEDURE n 
where n is the number of the procedure. 

The procedure n may be executed at any time by the statement 

EXECUTE PROCEDURE n 

which transfers control to the statement immediately following the BEGIN 
PROCEDURE n statement and' obeys the "statements of procedure n until 
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if x 

a) the END PROCEDURE n statement is executed, which transfers control 
to the statement immediately following the EXECUTE PROCEDURE n 
statement that entered the procedure. 

b) a RETURN n statement is executed. This returns control to the 
statement immediately following the EXECUTE PROCEDURE n statement 
that entered the procedure. A RETURN statement is valid only 
within the procedure from which it returns control. 

Any statement may be included within a procedure, including EXECUTE 
PROCEDURE statements referring to other procedures, except: 

a) BEGIN PROCEDURE, RETURN, or END PROCEDURE statements referring 
to other procedures . 

b) EXECUTE PROCEDURE referring to the procedure within which it is 
placed. 

B. CONTROL m 

This statement controls the typewriter carriage 

m = 101 spaces typewriter 

m = 102 returns typewriter carriage 

m = 108 tabulates 

C. PAUSE 

The program execution is halted by a k-Q op code in the main line program. 
Depression of the "START" key will cause the computer to continue to the next 
instruction. 

D. STOP m 

The program execution is halted after the carriage is returned and STOP m 
is typed. If m is omitted, STOP 0000 will he typed. Depressing "START" will 
cause the computer to continue to the next program instruction, m, if present, 
must be an unsigned constant, < m < 9999 • 

E. END 

The program execution is halted after the carriage is returned and END is 
typed. Depressing "START" will cause the carriage to return and END to be typed. 



3! 6 Q 



F. TRACE 



The results of all arithmetic statements may be traced without the generation 
of any additional in-line instructions. Replacement type statements (A = B, 
C = D(k), I = j) will not be traced since no arithmetic, operation is required and, 
hence, FAC is not used. If the replacement statement includes a subscripted 
variable on each side of the equality, the statement may be traced. The tracing 
of arithmetic statements at object time is by the use of SWITCH k. 

BEGIN TRACE will -tfurp. on the trace feature. This will replace the 
normal FMFAC instruction (26 ADDR, FAC) with a combination "FMFAC - 
TRACE" instruction (17 FMTR/ ADDR.) . Each arithmetic statement 
thereafter will permit tracing. Tracing will be terminated when 
an END TRACE statement is encountered. Succeeding statements will 
not be traced until another BEGIN TRACE is read. 

G. PRINT 

PRINT n, list will cause the variables in the list to be printed according 
to the format specification n after a carriage return has been executed. This 
conforms with the PRINT statement of FO-00^. No indexing is permissible within 
the list. 

H. TYPE 

TYPE n, list performs the same function as PRINT n, list with the exception 
that no carriage return will be executed prior to the output of data. This will 
permit the printing of columns of data utilizing the typewriter tab settings and 
the CONTROL 108 statement,. 

I. INPUT/OUTPUT LISTS 

If the length of the list in an input/output statement requires more 
characters than are available before column 78, the list may be. continued in 
the next statement. Terminate the list preceding a continuation with a comma. 
Continuation statements must have a digit (a continuation number of character) 
preceding the remainder of the list. 

J. COMMON 

The COMMON statement is followed by a list of variables whose object time 
addresses will begin in the first symbol location after the function symbols. 
This will enable the' assignment of . addresses to symbols common in several programs. 
Dimensioned variables which are listed in COMMON statements will have the necessary 
space reserved and must not be again listed in a DIMENSION statement. CAUTION: 
The COMMON statements ) must be the first compiled statement in the program. 

EXAMPLE: COMMON A, B, C,D(2^) ; E 
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K. MOVE n, A, B or 



MOVE n, A, B, m 



The purpose. of the MOVE statement is to transmit a specified set of fields 
to specified locations, m (if present) and n must be unsigned constants. A' 
and/or B may be subscripted; the contents or the locations to be transmitted 
may be fixed, .floating, .or not,. If m or n are specified to be more than 2 digits .. 
they will be treated modulo 100. 

If m is omitted or specified to be .1, n fields will be transmitted from A 
and (n-l) successively lower locations to B and (n-l) successively lower locations. 
If m is specified to, be >1, n fields, will be moved from every mth location 
beginning with A to every mth location beginning with B« 

The MOVE statement generates 3 instructions in the object program (36 core 
positions) „ ■ 

Example: 

MOVE 3, x(l), y(2), k (36 positions) 
is the real way to say • 
DO 100 I = 1,9 

100 y(l+l) = x(l) (120 positions in line +20 in 

symbol table for I and 100 ) 

Note: If n - 0, one field will be moved. If m = 0, it will be moved yet again. 

L. IF(a) n ir n^,' n^ 

IF (SENSE SWITCH i) n , 

IF statements may have either statement numbers or the letter C (continue) 
in any of the positions in the transfer list. Statement numbers will be handled 
as they .are in other systems . The letter C refers to the statement immediately 
following the IF. statement . The statement following this IF need not be numbered 
unless referred to by some statement other than the IF. No transfer instruction 
or entry in the symbol table is generated by the letter C. 

For example, the statements 

IF (SENSE SWITCH 2) 6,5 

5 A = B 

may be written 
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IF (SENSE SWITCH 2) 6, C 



A = B 
M. FORMAT 

FORMAT statements which are over 78 characters may be continued in the 
following statement. The statement to be continued must terminate with a 
comma following some specification. Continuation statements must have a 
continuation character preceding the remainder of the format specifications. 
Not more than 3 continuations are allowed. 

Example : 

100 FORMAT (15, YQ.k , 
1E1A.8, 
2F8A) 

Permissible format specifications include I type (iw), F type (Fw.d), 
E type (Ew.d), D type (Dw), A type (Aw), X type (wX), and H type (wH). All 
of the numerical field specifications and the A specification may have fields 
repeated by preceding the specification by the number of required repetitions 
such as (3F10.2) which is equivalent of (F10.2, F10.2, F10.2). 

I TYPE : The I specification defines a field of w characters from which 
or into which data will be transferred. The data must be in fixed-point 
notation (maximum of h digits), however, the field width, w, is not so limited . 
On output, the sign of the variable will precede the digits, hence, a minimum 
field width of 5 is required to insure complete output of a fixed-point number. 
Should the field width be less than one plus the digits to be output, the low 
order digit or digits will be lost and the output data will be in error. 

Example: Fixed point number minus ikk is output under an 13 

specification. The result will be -1^ which, of course, 
is incorrect. 

F TYPE : The F specification defines a field width of w characters 
from which or into which floating-point data will be transferred. If a decimal 
point is not included in input data, the last d characters of the field will be 
recognized as decimal digits. On output, if the numerical value of the variable 
requires a field width greater than w to permit all non-decimal digits to be 
output, the specification will be automatically changed to an E type specifica- 
tion so that the output data will be complete.. 

Example: +1728 . is the output under the specification (F6.0) of a 
variable. Had the specification been (F5.0), the output 
would have been +.17280000E+0^. 
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(Note - the plus signs normally do not actually appear in output - see 
Modifications to the System, #3). 



Variables in E type notation may be input under the F type specification. 

E TYPE : The E specification permits the input or output of a floating 
point variable in the exponential form; that is, + .XXXE+XX. On output, 6 
characters of the field are required for the sign, the decimal point, and the 
exponential notation. 

Variables in F notation may be input under the E specification. 

D TYPE : The D specifications permit input or output of data floating 
point variables in "excess 50" form. Only two forms of the D specification 
are acceptable: D10 for floating-point numbers which will permit transfer 
of a floating-point value e.g., 12, as 5212000000, and which will permit 
transfer of a' fixed-point number such as -123 as 0123. 

(Note - Antique machines may require modification B/M 2115322 to print the 
Alpha character 50) 

A TYPE : The A specification permits the input or output of up to five 
alphameric characters.. The alphameric characters are converted to their two- 
digit form and stored in the symbol table as a 10-digit floating point variable. 
The width of the A field must not exceed 5« The number of alphameric characters 
input or output will be determined by the field width designation. The A format 
input will select the next available non-numeric character and the specified 
number of following characters 

X TYPE (BLANK FIELD SPECIFICATION) : Blank characters may be provided in 
an output record by means of specification wX where w is the width of the field 
to contain blanks. When the X specification is used with an input record, w 
characters are ignored. 

H TYPE : The specification wH permits the w alphameric characters 
immediately following H in the specification to be, input or output. CAUTION: 
the characters of an H specification may not be split on continuations. Should 
more characters than are available in a given statement be required in an H 
specification, the H specification on the first statement must include the count 
of the characters on the first statement only, and a new H specification must 
be stated in the format continuation. 

Free -Form Input 

The. input accepted by this system. has been relaxed so that variables need 
not correspond precisely with the field widths defined by the input FORMAT 
specification. The only requirements for the entry of data. are that a space or 
blank column exists between data and that the data agree in mode (fixed or 
floating) with the FORMAT specification. 
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It is required that the letter E follow immediately the last digit of the 
mantissa when a variable is in the E form and no blanks are permitted until 
after the last digit of the exponent or the entry will be erroneuous. Hence , 
the only acceptable E notations MM. . .ME+X, MM--ME+XX, MM--MEXX, MM--MEX, 
MM--ME-XX, MM--ME-X where M represents mantissa digits and X represents exponent 
digits. 



Relocatable Subroutines 



1. SIN and COS - evaluates sine(x) or cosine(x) 

Method - Hastings approximation with improved reduction 
to first quadrant. 

Length - 69k digits 

Speed - 128 msec. 

Accuracy - Error not more than one in last digit of mantissa for 
all angles, except sine of angles near it/2 and cosine 
of angles near zero, when error occasionally reaches 
two in last digit. 



Note: If all significance is lost, typewriter will indicate 

error condition, and machine will halt. Processing 
c annot c ont inue . 



EXP - evaluates e 



x 



Method - Addition loop successively multiplies 1.0 by 2, 1.1, 

1.01, 1.001, and 1.0001, reducing argument by the logs 
of those factors until argument mantissa is less than 
0.0001; approximation exp(x) = 1 + x is then used. 



Length 
Speed 



536 digits 
76 msec. 



Accuracy - Error not more than one in last digit of mantissa for 
positive arguments, not more than two for negative 
arguments. 

LOG - evaluates l°g e (x) 

Method - Addition loop successively multiplies argument by 2, 

1.1, 1.01, 1.001, and 1.0001, accumulating negative logs 
of those, factors until argument mantissa is greater than 
0.9999; approximation log x = x - 1 is then used. 
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Length - 678 digits 
Speed - 79 msec. 

Accuracy - Error not more than one in last digit of mantissa for 
arguments greater than 2.0 or less than 0.9; for 
arguments closer to one, loss of accuracy is inevitable, 
hut routine is always more precise than is : (x - l). 

k. SQRT - evaluates Vx" 

Method - Odd-integer method generating result by adding complements '. 

Length - 378 digits 

Speed - 116 msec. 

Accuracy - Perfect, rounded to an eight -digit mantissa, 

5. ABS - evaluates | x| 
Method - load dividend to FAC. 
Length - ik digits 

Speed - 1 msec . 
Accuracy - Perfect 

6. BAR - drops decimal digits of a variable (bracket function) 
Method - obvious 

Length - 10k digits 
Speed - k.2 msec . 
Accuracy - Perfect 

7. ATAN - evaluates arctan (x). Result is in the range 

7T . - YT 

- — < arctan (x) < -• 

Method - Table look-up and reduction of argument to less than 0.1; 

three-term Chebyshev approximation is then used. Result 
is complemented (if necessary) in fixed-point, avoiding 
loss of last digit in FSB. 
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Length - 8l8 digits 

Speed - 126 msec, for argument less than 1 
178 msec, for argument 1 or over 

Accuracy - Error not more than one in last digit of mantissa. 

8. SIGN - evaluates signum (x) = i-1.0, x < o) 

0.0, x = 
1.0, x > 

Method - obvious 
Length - 52 digits 
Speed - 2.5 msec. 
Accuracy - Perfect 

9. ONE - evaluates the Heaviside unit step function l(x) = (o.O, x < 

jO. 5, x = • 
1.0, x > 

Method - obvious 
Length - 76 digits . 
Speed - 2.2 msec. 
Accuracy - Perfect. 

Error Messages During Processing 

PDQ FORTRAN has . a limited ability to detect errors in the grammar and 
syntax of FORTRAN. This capability is not adequate and is included mainly to 
ensure that the processor does not destroy itself. 

The PDQ FORTRAN error messages are: 

Error No. Condition 

1 Incorrectly formed statement 

2 Subscripted variable for which no DIMENSION statement 
has previously appeared in the program, dimensioned 
variable used without subscripts, . variable in DIMENSION 
statement has already appeared in the source program. 
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Condition 



Floating point number not in allowable range of values, 
or fixed point number contains more than four digits. 

Symbol table full. 

Mixed mode expression. 

Variable name in an expression contains more than 
five characters . 

Switch number has been omitted in an IF ( SENSE SWITCH n) 
statement. 



A comma follows the statement number in a DO statement. 

A DIMENSION statement ends with a comma, more than two 
dimensions have been specified in a DIMENSION statement. 

Unnumbered FORMAT statement. 

Incorrect representation in a FORMAT statement in one 
of the following ways: 

a. Special character (=©-*+.,) in numerical 
field specification. 

b. Alphabetic character other than D, E, F, I, or A 
in a numerical field specification. 

c. Decimal point missing in an E or F-type numerical 
field specification. 

d. The number of positions to the right of the decimal 
point has not been given in an E or F-type numerical 
field specification. 

e. A record mark appears in a numerical field specifica- 
tion or an alphanumeric field. 

f . The first character following the word FORMAT is not 
a ( . 

g. The last character is not, or ) . 

The total record width specified in a FORMAT statement is 
greater than 99 characters. 

A FORMAT statement number has been omitted in an input/output 
statement. 
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Ill Operating Instructions 



1. Clear Core 

2. Load PDQ Processor 36 00000 003 

3. Switch Settings 

Parity and i/o to Stop, OFLOW to program 
Program Switch On 

1 List ONLY object time addresses 
of source statements 

2 Do not list names and locations 
of relocatable subroutines 
(functions) 



Do not compile subroutines on 
object tape 

Source program is on tape 



Off 

List source statements and 
symbol table 

List complete symbol table 



Compile subroutines on 
object tape 

Enter source program on 
typewriter 



Note: 



If switch 1 is on at the end of the compilation, the symbol table 
will NOT be typed, but the highest address below the object -program - 
symbol-table will be typed. 



Error Procedure 

If a source statement error is encountered the processor will type an 
error message and halt. Pressing START will transfer control to the typewriter 
so that the statement may be correctly typed in. Sense Switch k serves its 
usual role with regard to typing errors and must be turned off before release- 
start is pressed. In some circumstances a source program error may result in 
a MAR CHECK. In this event one may enter a branch to the error routine (h9i1\&t) 
and proceed as above. 

Debug and Protect Feature 

The symbol-table locations for which entries are not defined at compile 
time will be initialized to flag-record marks in low address (high-order address) 
of each symbol location at the time subroutines are loaded. This will protect 
the subroutines and the remainder of the symbol table from the disastrous effects 
of referring to undefined symbols (fixed variables excepted). Further, the 
record mark will generate a MAR CHECK if an undefined symbol is encountered by 
the subroutines. 
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Object Program Errors 



Error conditions detected by the subroutines generate the following error 
messages and results: 



Condition Message 

Overflow in fixed OFLO 
or floating 
arithmetic 



Contents of FAC 



NINES 



Operation 
continued 



Underflow in 
fixed or float- 
ing arithmetic 

Overflow in EXP 
Underflow in EXP 

Negative argument 
in SQRT 

Argument out of 
range in SIN-COS 



Zero argument in 
LOG 

Negative argument 
in LOG 



UNFLO 



EX OFLO 
EX UFLO 



I AIN'T REAL 



Function Undefined - 
Beyond Allowable 
Range (FUBAR) 



LOG 00 

I CAN'T TAKE 
YOUR LOG 



ZERO 



NINES 
ZERO 



■y | argument!' 

argument 



MINUS NINES 



log 1 argument 



continued 



continued 
continued 

continued 



terminated 



continued 
continued 



Input out of 
range 



(none) 



NINES 



continued 



Fixed Point Arithmetic 

The operators +, - and * in the fixed point mode give results mod 10000. 
Hence , the addition of 9998 and k gives 2 with no error detection due to the 
overflow. Should division by be attempted, an error overflow will be indicated, 



3 26 



Ik 



IV Physical Description 

Processor tape consists of the following records 

1. Loader and identifier (numeric) 

2. Tables and program (numeric) dump of locations 00100 through I785O. 

3. Subroutine; names (alpha) 

Subroutine tape consists of the following records (all numeric) 

1. Loader and identifier 

2. Tables 

3. Relocator (dump or locations 00500 through 02553) 
k.a. Relocatable subroutines (many card images) 

k.\) End-of-relocatables record 

•5. Class A subroutines (dump or locations 00100 through 06367) 

6. Loader 

7. Symbol-table initializer 

8. i/O buffer initializer 

9. Type message, halt, and branch to 06^00 

A duplicator program is provided with the system. It will duplicate 
both the processor and subroutines. 

Adding Relocatable Subroutines 

The name of the subroutine must be added to the last record of the processor. 
Its order number in that record is the subroutine =ff + 1. ... Subroutines must be 
written and processed in an SPS which produces card-image output e.g., 1620-1710 
SPS. Subroutines must begin with D0RG 5000. Flags on the zero and one positions 
of each instruction will cause the P and Q addresses respectively to be relocated. 
No other flags may be used in addresses to be relocated except for positions 6 
and 11. Flags in those locations will generate proper indirect addresses. 
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To assemble a relocatable subroutine, delete all records from the SPS 
output except those containing information generated by program instructions; 
i.e., delete the loaders and tables. Then add header and trailer records as 
follows : 

Header Record 

XX (Subroutine No.) 62 blanks o£ 

(Subroutine No. must be less than 23) 

Trailer Records 

1. Memory -^capacity digit records 

6k blanks xxxxxfi (location of any digit which must be adjusted 
for memory size. 

2. Subroutine length record 

xxxxx (length of subroutine - must be even) 57 blanks 0000^ 

Modifications of the System . • 

The following modifications to the system may be incorporated at the 
user's discretion. 

1 o Compilation Errors 

If the user prefers not to correct source program errors at compile 
time he may (l) ignore the erroneous statement by changing the digit in 
location 132^1 of the processor to 9, or (2) terminate compilation by changing 
the contents of locations 132^1-6 to 909860. 

2. Trace Format 

To eliminate printing of the ^- digit address of the traced variable, 
change subroutine locations 0269^-5> 02736-7 ^° kL« 

To modify the Format for Fixed and Floating variable change the fields 
at 2327 and 2359 respectively to the desired specifications. 

3* Plus Signs in Output 

Plus signs are normally omitted in both tape and typewriter output. 
To obtain plus signs in output change the digit in location O3196 of the sub- 
routines to 1 for floating output, change 0^69^ to 1 for fixed output. 
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Object Time Error Modification 



Any error condition message may be deleted by changing the carriage return 
and output instruction op-codes to kl. The system now has a NOP instruction 
following each of the instructions which write error messages . These may be 
changed either to Halt instructions (kQ) or to branch to END (^902622) to 
terminate the program. 



329 



17 



Error in the System 

There is one known error in PDQ FORTRAN inherited from FORTRAN with FORMAT. 
The statements 

A = - B ** C or 

A = - B ** I 
will compile as if they were 

A = (-B) ** C or 

A = (-B) ** I 

To obtain the desired result, it is necessary to write 
A = - (B * * C) or 
A -• - (B * * I) 
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I THE CONCEPT OF SEX 



SEX FORTRAN is a system "based on, and largely identical to, PDQ 
FORTRAN for Paper Tape. To the best of the author 1 s knowledge, no one 
presently disputes the claim that PDQ is the most efficient and powerful 
FORTRAN in existence for a poor man's 1620 (20K, auto divide); this is a 
sufficient (though not entirely the actual) reason for taking PDQ as a 
starting point. 

One reason for the writing of SEX FORTRAN is that any FORTRAN must 
he less than maximally efficient, and that many programmers are sophisticated 
enough to recognize and circumvent (e.g., by judicious patching) the inherent 
inefficiencies. In most systems, this requires the programmer to operate 
outside the language. SEX is designed to give this type of programmer a 
head start toward program efficiency by providing several new, frightfully 
nonstandard statements in the language, and by streamlining the treatment of 
parts of the standard FORTRAN language. 

A second reason for SEX is that, in several instances at the author's 
installation, programs have appeared which have overlapped by several thousand 
locations - too much to permit a simple tightening of the source program, but 
small enough to suggest that there should be a reasonable way to squeeze them 
into core. 

SEX provides an answer in two ways. First, for the programmer who does 
not wish to stray from conventional FORTRAN, any program in Olde FORTRAN, 
FO-004, UTO, or PDQ may simply be recompiled in SEX from the original source.* 
This will save from 3500 to perhaps 8000 locations on a large program, depend- 
ing upon the system against which a comparison may be made. For example, any 
program requiring 25,000 locations in UTO, or about 23,500 in PDQ, will almost 
certainly fit a 20K machine in SEX. The SEX object program begins in location 
03100, and both the object program and the symbol table are generally shorter 
(never longer) than those generated by any of the above systems. 

Second, for the benefit of the programmer who has outgrown the idea that 
the l620 is a mysterious black box, the more powerful language of SEX will 
permit corners to be cut in the source program. 

The other side of the question of efficiency is time. Exclusive of i/O, 
running time in SEX is slightly but not significantly faster than PDQ. The 
i/O ' subroutines process faster in SEX; actual time spent on the i/O operations 
depends in other systems on the format, which is rigidly fixed in SEX. Thus no 
direct comparison is possible. The author claims, however, that SEX in general 
does yield a faster as well as a shorter object program than any other system 
for this simple-minded machine configuration. 

*■ A few statements are not accepted by the SEX processor: SAY and OUT 



332 



II THE TECHNIQUE OF SEX 



The best way to permit a significantly longer object program is, of 
course, to remove unnecessary instructions from the Class A subroutines. 
Since the author did not wish to cripple any of the PDQ arithmetic sub- 
routines, the input-output routines (some 3500 locations) were discarded 
and replaced by a set of rather austere i/O subroutines requiring only 
350 locations. This is the greatest space-saving innovation in SEX, and 
it is from the two new statements corresponding to these routines (SELECT 
and EXTERNAL) that the system derives its name. 

Accompanying the adoption of this new set of i/o routines there are 
of course restrictions on data format. All numeric data must appear in 
excess-fifty or in 10-digit fixed-point representation (DIO format), one 
value per record. Alphameric data, in A5 format, may also be input or 
output if desired. Since all format (except typewriter control) is strictly 
defined, there are no FORMAT statements in the system (they will be accepted 
but ignored by the processor). 

The arithmetic subroutines for fixed-point addition and subtraction 
have been eliminated. The add and subtract instructions now appear in line. 
This results in a saving of 30 locations in the Class A subroutines, at the 
expense of one instruction (12 locations) in the relocatable LOG subroutine. 

Further, smaller savings of space were introduced by a slight change 
in the STOP routine and by the author's willingness to accept a somewhat 
questionable format for TRACE output (these are described in Section IV 
below). 

The symbol table has been shortened in SEX by the elimination of fixed- 
point constants (these now appear in line) and by ignoring FORMAT statement 
numbers. The adoption of the PDQ "continue" feature for IF statements makes 
possible the elimination of many statement numbers from the source program 
(and hence from the symbol table). 

The object program itself is for the most part the same as that generated 
by PDQ (i.e., shorter than in any other system), with two exceptions: FORMAT 
statements are ignored, and fixed-point arithmetic statements of the form 
I = I - J (where J is any fixed-point expression) are compiled correctly by 
SEX, which saves one or two in-line instructions depending on the form of J. 

In many programs, logic is determined by defining variables which function 
only as binary switches to be tested by the program. To eliminate the obvious 
waste of reserving 10 digits in the symbol table for each such creature, SEX 
provides a bank of ten single-digit SENSE LIGHTS, which are described in 
Section V. 

For the sophisticated programmer, it is possible in SEX to save further 
space in cases which are beyond the limited psychic capabilities of the SEX 
processor. Provision is made for the programmer to patch his program at 
compile time. The HANG PATCH statement is discussed in Section V. 1 
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Ill THE LANGUAGE OF SEX 

,4" "N. 

The folio-wing is a list of permissible SEX statements. For the most 
part, these are the usual statements found in any 1620 FORTRAN, from FO-004 
on up. Those which were introduced (or altered in meaning and/or treatment) 
"by PDQ have been marked with a single asterisk. Statements marked with a 
double asterisk are peculiar to SEX. 

A. Arithmetic and Data Transmission 
A = B op C etc. 

* MOVE n, A, B or 

* MOVE n, A, B, m 

B. Input /Output and Format 
** SELECT, wxyz 

** EXTERNAL, List 
ACCEPT n, List 
PRINT n, List 



1 , 



PUNCH n, List 
READ n, List 
*TYPE n, List 
FORMAT ( ) 
CONTROL n 
C. Program Control and Logic 
CONTINUE 
GO TO n 

GO TO (n-. , . . . , n . ) , i 
DO n i = m^, m^ or 

DO n i = rr^, m 2 , m 
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4. Al. 3 



** LIGHT i ON 
OFF 

** LIGHTS ON 
OFF 

* IF (Expression) n , h , n 

1 d 3 

* IF (SENSE SWITCH i) n^ 
** IF (SENSE LIGHT i) n.^ n 2 
PAUSE 

STOP or 

STOP n 
EXECUTE . PROCEDURE n 
BEGIN PROCEDURE n 
RETURN n 
END PROCEDURE n. 
END 

D. Declarative and Miscellaneous 
** HANG PATCH 
DIMENSION 

* COMMON 

* BEGIN TRACE 

* END TRACE 

All statements are interpreted and compiled as they are in PDQ FORTRAN 
except as herein noted. 
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IV NEW TREATMENT OF STATEMENTS 

Most statements are handled "by SEX as they are "by PDQ. The exceptions: 



A. ACCEPT, PRINT, PUNCH, READ, TYPE - each of these i/o statements 
is compiled in the "standard" manner, subject to the format 
restrictions of SEX; i.e., each generates a SELECT instruction 
(q.v. ) defining the format that I have decreed to "be the most 
"natural", followed "by an EXTERNAL instruction for each list 
variable. AN i/O statement with no list (such as PRINT l) will 
generate (a) a SELECT instruction in the object program, and 
(b) a compilation error. The error routine allows the operator 
to leave the SELECT instruction in the object program or to 
overlay it with the next statement. 

i/O continuation statements (as in PDQ) are accepted by the system. 

B. FORMAT - the SEX processor will accept but ignore FORMAT statements 
and continuations (their statement numbers will not appear in the 
symbol table). All i/o defined by the statements listed in paragraph 
A must be numeric, in DI0 format. Alphameric i/O (in A5 format) 

is also allowed but must be specified by a SELECT statement. 

C. STOP or STOP n - The only innovation here is the abbreviation of 
the printed message to S MENN. 

D. TRACE_- The format for trace output has been_modified to 
AAAAAWVVVWVVV for floating and AAAAAGGGGGGWW for fixed 
variables, where 



A is the address of the variable, 



V is the value of the variable, and 



G- is whatever garbage may be in the accumulator. 



** t% 
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V TREATMENT OF NEW" STATEMENTS 

The following is a description of the new statements mentioned in 
Section I. 

A. SELECT, wxyz 

This is the statement which defines format and controls all input 
s are as follows: 

for numeric input 
for alpha input 
for numeric output 
for alpha output 

for typewriter 
for paper- tape punch 
for paper-type reader 

for no control "before first list item 
for space "before first list item 
for carriage return "before first list item 
for tab "before first list item 

y; applies to all items in list except the first. 

The polypotent SELECT statement generates one instruction in line which sets up 
the i/o subroutines to handle the list variables in succeeding EXTERNAL state- 
ments. The arguments corresponding to "standard" i/o statements are: 

ACCEPT ~ 0123 

PRINT - 2123 

PUNCH - 2200 

READ - 0300 

TYPE - 2133 



and output. The argument 

( 
( 



w 



X = 



y = 



( 



1 



( 

( 2 
\ 3 



( 1 
( 3 



( 
1 



( 2 
( 



3 



z = same as 
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B. EXTERNAL, List 



This statement generates, for each list variable, an instruction to 
input or output the variable as specified by the last SELECT statement encountered. 
As an example of the use of SELECT and EXTERNAL statements, consider the following 
two programs: 

C PROGRAM I (PDQ) 

READ 1506*, A,' B, C 

PRINT 1506, A, B, C 
1506 FORMAT (D10, 5X, D10, 5X, D10) 

END 



C PROGRAM II (SEX) 

SELECT, 0300 
EXTERNAL, A, B, C 
SELECT, 2123 
EXTERNAL, A, B, C 

/ION 

END W' 

The operation of these programs is identical (in fact, the SEX object programs 
generated would be identical). In Program II, the first SELECT statement tells 
the i/O subroutines that data are to be read numerically (w = 0) from paper 
tape (x = 3), with no typewriter carriage control (y = z = 0). The first EXTERNAL 
statement causes the values of 3 variables to be read and stored. The second 
SELECT tells the subroutines to write numeric (w = 2) on the typewriter (x = l) 
with a carriage return preceding the first item on each EXTERNAL list (y = 2) 
and a tab preceding each succeeding item (z = 3). The final EXTERNAL statement 
causes the values of the list variables to be read from storage and output as 
specified. 

C. LIGHT i ON (or OFF) 

The function of this statement is obvious except for the definition 
of the symbol i, which can be either a single digit (0 through 9) the name 



* cf. Forbisher-Laroche 
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of a variable presumably (though not necessarily) defined elsewhere. If a 
variable, the light affected will be that corresponding to the low-order digit 
of the value of the variable at the time this statement is executed. If the 
variable is fixed-point, this will be the units digit. Use of a floating - 
point variable in this statement is permissible, sometimes useful, and usually 
dangerous. The sign of the variables will have no effect unless the program is 
being run with IA turned on, in which case the author disclaims responsibility. 

Example: The sequence 

Q = 0.0 

LIGHT Q ON 

DO 1 IDIOT = 6903, 6907, 2 
1 LIGHT IDIOT ON 
LIGHT 9 ON 

will cause lights 0, 3, 5> 7/ and 9 to be turned on, in that order. 

Loading the subroutines to start the program, will reset all lights OFF. 
If any light is turned on, it may be turned off again only by means of an OFF 
statement; interrogating a light does NOT turn it off. 

D. LIGHTS ON (or OFF) 

This statement simultaneously sets (or resets) all 10 lights. 

E. IF (SENSE LIGHT i) n , n g 

As in the ON and OFF statements, i may be the name of a variable; 
as in other IF statements, one (or both) of the statement numbers may be omitted. 
If the light referenced is on, the program branches to n^; if off , to n^. 

If both statement numbers are omitted AND i is the name of a variable, the 
object program may not run properly. 

The continuation feature for all IF statements has been modified from PDQ; 
the letter C for the continuation may be replaced by anything (or nothing) 
neither beginning with a numeric digit nor including a comma. This should be 
of great value to those of us who delight in writing fudge recipes and/or bad 
poetry in our programs . 
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F. HAHG PATCH 



This statement allows a machine -language patch, to be entered at 



compilation. When a HANG PATCH statement is encountered, the SEX. processor 
transfers control to the typewriter to accept the patch, the idea "being that 
the map listing being produced will make the necessary addresses available. 

Two of the more immediately obvious uses of this statement are for alpha 
output (such as column headings) and for direct branches within the object 
program to avoid using symbol-table space for statement numbers. 

A few words of caution are in order: 



(l.) normally, no record mark should appear in the patch. In 
this case, the last digit entered at the typewriter will 
be the last digit inserted into the object program; 

(2) if a record mark with no flag appears in the patch, it will 
go into the object program as the last digit of the patch, 
and anything following the record, mark will be ignored; 

(3) if a flagged record mark appears in the patch, the preceding 
digit will be assumed to be the last digit of the patch; 

(k) the processor will accept unflinchingly a patch with an odd 
number of digits. Care is advised. 
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VT DESCRIPTION AND OPERATION OF THE SYSTEM 



The processor occupies locations 00100-17^-80, permitting 252 entries 
in the symbol table. The Class A subroutines end in location 03099. 
Relocatable subroutines are stolen directly from PDQ (q..v. ). 

Errors detected at compile time are for the most part the same as 
those of PDQ, UTO, etc. The routine for handling them is a bit different. 
When an error is detected by the processor, a message is typed and the 
machine halts. If Switch 2 is turned on and the START key depressed, the 
carriage will return and a corrected statement may be entered at the type- 
writer. If Switch 2 is off when START is depressed, the erroneous statement 
will be ignored and the next statement will be read in. 

This error routine and the existence of the HANG PATCH statement make 
it advisable for the programmer to be available at compile time. Simple 
patches are provided with the system to permit changing these procedures for 
closed- shop operation. 

Except as noted here, operation of SEX is the same as with PDQ. Details 
and instructions are provided with the system. 
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The Art of Debugging 



E, J. Orth, Jr. 
Southern Services, Inc. 
600 North 18th Street 
Birmingham, Alabama 35202 



This talk is based on experiences in writing and debugging large FORTRAN II 
programs at the Computer Center at Southern Services , Inc . , in Birmingham, 
Alabama. As such, it is the sum total of the experiences of several people. 
Although specific reference will be to FORTRAN II oriented debugging, the tech* 
niques may be applied to any system. No claims are made for new ideas. Rather 
it is hoped that this representation of old ideas in what is hopefully a new 
framework will be useful to all concerned. 

FORTRAN II provides two types of trace: An equals trace, and a logical 
trace of sorts. The equals trace prints the result of each arithmetic statement; 
the logical trace prints the results of computations specified within an IF 
statement. The normal output mode is the typewriter; however, an object time 
modification described in The 1620 Users Group Newsletter, Vol. 1, No. 2, allows 
conversion to punch mode. The normal FORTRAN trace will be called the micro 
trace in the rest of this discussion. 

A long program involving many computations would require reams of micro 
trace to reach a bug occuring late in the program. The following techniques may 
be used to simplify the problem: 

1. The subprogram concept 

2. The PAUSE N statement 

3. A special debugging subprogram. 

The Subprogram Concept 

Subprograms can materially cut the volume of a one for one trace. After a 
subprogram is checked out, it may be compiled in the no trace mode, thus elimi-* 
nating all trace output from that subprogram at mainline debug time. 

Subprograms need not be restricted to repetitive routines. Sections of the 
mainline logic may be checked out and CALLed as a subprogram. 

The PAUSE N Statement 

Use of this statement at strategic points in the program, each with a 
unique N, will allow the programmer to step through his program observing N in 
0R2. When a trouble spot is reached, trace may be initiated. Thus the PAUSE N 
statement allows an awkward type of macro trace . 

A Special Debugging Subprogram 

A more useful type of macro trace may be provided by a single argument 
subprogram whose function is to type and punch "STNO I w (where I is the argument) 
and pause. Type/punch of "STNO I" would indicate that the program is about to 
execute statement number I. Such a subprogram may be CALLed at the beginning of „ . 
each main logical block. The argument would be the statement number of that 4 

logical block. Let us call this subprogram STNO. 



The utility of STNO may be expanded by addition of a dump routine such as 
No. 1620-01. 6 .093. This dump routine is in the form of a library function, and 
is relocated from the subroutine deck by J * DUMP (J) . J, the argument, is an f^) 
integer of four digits, and specifies the section of core to be dumped. For 
instance if J is 1214, all core from 12000 thru 13999 will be dumped in 5/75 
format. With the proper argument, the library function DUMP may be used to take 
snapshots of selected portion of core such as the symbol table or the common 
storage area, on up to all of core. 

As a final refinement, both the STNO subprogram and the use of the DUMP 
routine within that program may be placed under console switch control. Thus, 
the entire subprogram may be bypassed, or only the DUMP routine bypassed. See 
flow chart in appendix B. The STNO debugging tool may now be used as follows: 

1. A macro trace of the logic through the punch/type w STN0 I" 

2. Selected core dumps 

3. Micro traces as desired, selected through CS4 at the proper 
"STNO I" type. 

If punched micro trace is used, the punched "STNO I" will allow the programmer 
to readily find his place. Punched micro trace is most definitely recommended 
to save computer time. 

If an on-line printer is available, read print for punch in the above. 

The usefulness of selective core dumps cannot be overemphasized. A prime 
example concerns matric manipulation. A snapshot of the work area before and 
after completion of a matric operation may be compared to the micro trace of a 
FORTRAN statement. Indeed, a subprogram such as STNO incorporating some sort of 
dump routine is absolutely necessary in programs involving matrix algebra. STNO /T^ 
and DUMP are to matrix algebra as the FORTRAN micro trace is to arithmetic 
statements • 

Another Use of DUMP 

The following sequence may be placed at the very beginning of a program 
during debug time to allow variable length core snapshots at will. 

1 FORMAT (14) 

IF (SENSE SWITCH 4) 2,3 

2 ACCEPT1,I 
I«DUMP(I) 
PAUSE 11111 

3 CONTINUE 

Flow Charting and Coding 

Certain simple documentation practises will speed debugging. For instance, 
each page of the flow chart should be numbered. It is most useful if each num- 
bered statement concerned with the logic on a given page use the flow chart page 
number as a hundreds digit. 

Each logic block on the flow chart should be cross-indexed to the FORTRAN 
source program by statement number. That is, the number of the first statement 
in a block should appear above that block on the flow chart. 

The obvious utility of comment cards need not be belabored here. 3 4 4 



The FORTRAN statement STOP N is most useful as an error trap. Each N should 
be unique, and a table of N, statement number, and type of error should be pre- 
pared* STOP N should be used to trap unexpected, illogical conditions. For in- 
stance in testing a variable in an IF statement : If the variable may be positive 
or zero but never negative, use STOP N on negative Programmed switches and the 
computed GO TO are very convenient. When testing a set of switches, STOP N may 
be used to trap theoretically impossible conditions. The only cost is the state- 
ment number, and the STOP statement. The STOP N statements may be removed when 
the program is debugged and no errors will occur. 

Conclusion 

Some sort of disciplined debugging procedure must be adopted in order to 
assure optimum utilization of programmers, operators, and equipment. If we are 4 
to grow in our profession, we must adopt and submit to this discipline. The 
days of bit chasing and typewriter core dumps are fast disappearing. We must be 
ready to program and debug without touching or seeing a computer. A painful 
thought? Yes. But have you heard of System 360? 



APPENDIX A 



When a card punched as below indicated is LOADED after a FORTRAN II object 
deck is loaded, all micro trace will be in the punched mode. The output may be 
listed 80-80 on the 407, with a card taped over print wheels N thru 80 to block 
printing of garbage. N=ff+3 or kk+1, whichever is greater, f f is floating 
precision; kk is fixed precision. 

Procedure: Reset, LOAD this card. Typewriter will print "PCH TRACE MODE 11 . 
Then branch to beginning of object program. 



16 


06701 


00041 


Replace RCTY with NOP 


15 


06733 


00004 


Replace WNTY with WNCD 


15 


06753 


00004 


Replace WNTY with WNCD 


39 


00051 


00100 


Print "PCH TRACE MODE' 1 


48 


57434 


80063 




59 


41434 


50054 




56 


44450 


/ 





In most cases it is desirable to permanently modify the processor to punch 
trace . 
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APPENDIX B 



One possible configuration of the STNO subprogram is shown. In this version, 
CS1 controls type/punch of "STNO I M and CS 2 controls DUMP. 



EXAMPLE i 



SUBROUTINE STNO(l) 



OFF 



ON 



Type "STNO I" 
Punch "STNO I" 



Pause 



OFF 



ON 



J=DUMP(1214) 
J=DUMP(5560) 



^KETURN^ 



132 



CALL STN0(132) 



LOGIC BLOCK | 



934 



CALL STN0(934) 



# 



LOGIC ] 


3LOCK 1 






CALL STNO(33) 





LOGIC BLOCK 
1 

* These may be removed after debug time. 



C 



3 i# 



7* "T9-: ;-!»; 



Search and Memory Print 
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(SAMP) SEARCH AND MEMORY PRINT 
Jack H* Wolfe Brooklyn College, Brooklyn 10, N.Y. (User #1026) 



DESCRIPTION 

This utility program is available from the 1620 General Program 
Library under # 1*6* 100* It can be used as an aid in debugging 
machine language programs in which the successive instruction 
locations are stepped up uniformly be 12 and in which the 
instructions are not interspersed with record areas* If these 
conditions do not prevail for the entire program , however, this 
utility program can be applied separately to each individual 
portion of the program for which these conditions are satisfied. 

The memory print part of this program will write out on the 
typewriter any selected portion of the memory in either instruc- 
tion format or data format* In instruction format the typeout 
contains the location, the OP code, the P-address and the 
address, appropriately spaced for ease of reading* Flags and 
record marks are typed out* Each instruction is typed on a new 
line* 

In data format each line contains the location and the contents 
of the ten memory positions starting at that address* Because 
the error in the program will often become apparent before the 
completion of the memory print, the typeout* whether in instruc- 
tion or data format* can be terminated orderly by program switch 
control at any time in the processing* 

The search part of this program may be particularly useful when 
the program being run stops on an invalid operation code due to 
a branch to a location that is actually not the beginning of an 
instruction* By displaying IR1 and subtracting 12 from that 
address , we know the address of the instruction with the invalid 
OP code* The SEARCH can then be used to search the instructions 
part of the program being debugged for all branching instructions 
whose P-part is the address of the instruction with the invalid 
OP code* The SEARCH will type out the locations and the instruc- 
tions of all conditional and unconditional branches to that 
address* It takes indirect addressing into account to one level 
when an indirect address appears as the P-part of a branching 
instruction* 

As a by-product of the search* the program types out all immedi- 
ate Instructions found without a flag in the first four positions 
of the Q-part of the instruction, except, of course, for the OP 
eode 15. The locations of the typed instructions are also typed 
out* 



(SAMP) continued 



Sometimes it will be found that the search is completed without 
finding any branching instruction that could have caused the 
program to branch to the address being sought. This may be due 
to the fact that a branch might hare been made to a location 
that is 12 positions lower than the address where the program 
hung up. If the 12 digits beginning at that address constituted 
an executable instruction, the computer would not have hung up 
until the following instruction was reached* Thus it is desirable 
to perform a memory print starting several instruction lengths 
before the address where the program hung up* This will reveal 
whether a branching might have taken place to an address preceding 
the address of the invalid OP code. With this information, the 
SEARCH can be planned more effectively* Quite often, moreover, 
the memory print itself will reveal the actual error and the SEARCH 
will then be made only when it is apparent that the program could 
have reached the invalid OP code only by branching to it .or to an 
instruction preceding it. 



STORAGE 

This utility program itself occupies memory positions 57400-J9999* 

The following changes in the source program, which is written in 
SP3, will enable the program to be relocated for a 20K memory* 



Source Card 



01010 



04060 
04085 
04088 
04100 
04110 
04118 
041J0 
04150 
04160 



Changes 

DORG 17400 (or any other address at which 
2600 consecutive positions 
are available) 
Change column 16 from 5 to 1 



For modification for 20K, positions 19995-19999 must be available* 



EQUIPMENT 

Indirect addressing* 
Without automatic divide* 



If automatic divide hardware is present, change the second operand 
of source card 02270 from T8 to 20. If the present object deck is 
available, ohange columns 55"?6* from Td to 1.0 on card 15* 
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(SAMP) continued 



OPERATING INSTRUCTIONS 

For the moat part the operating instructions are conveyed by 
typewritten messages* The SAMP object deck may be loaded initially 
and branched to when needed* If, however, an error in the program 
to be debugged destroys the utility program in memory, it can be 
reloaded readily; it contains 70 cards. 



SOUBCS PROGRAM AND WRITE-UP 

The source program, write-up, and illustrative output appear in the 
material available from the 1620 General Program Library as 1*6* 100. 
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INTRODUCTION 

Fortran (FORmula TRANslation) is a popular computer language because it 
may be used without knowing the internal operations of the computer. A major 
drawback of the Fortran language, however, is the difficulty in finding program errors 
when they occur. 

In processing a Fortran language program a table containing the storage 
addresses for calculated or constant values is produced. This table is known as a symbol 
table. The table can be a good aid in locating errors in a program because the values 
in question can be looked at and inferences made as to the causes of the difficulties. 

Since the time required to type out the entire symbol table is relatively long, 
it is desirable to have the symbol table punched onto cards and then listed, perhaps, on 
an I.B.M. 407 machine. This makes the time required to obtain the table negligible, 
and the operation, therefore, more desirable. 

Programs for punching the table have been mentioned in the 1620 USERS 
GROUP NEWSLETTER but these programs do not include all of the possible information 
that could be punched. In addition to the information punched out by these programs 
it is possible to provide the program execution phase addresses for any numbered fortran 
statement, or format type statement. With this additional information, statements can 
be referenced without necessarily referring to a program listing for the information. 

To accomplish this, two programs have been developed, one of which is 
compatible with the I.B.M. , U.T.O. Fortran systems, and the other with the P.D.Q. 
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Fortran system. These programs will provide the symbol table on cards, at the computer's 
card punch speed, in a format that is easy to read and that contains the maximum amount 
of information available. 

DESCRIPTION OF PROGRAMS 
I. B. M., U.T.O. SYMBOL TABLE PUNCH 

The symbol table, described above, is generated during the processing of the 
Fortran source program and is not complete until the entire source program has been 
processed. This makes it necessary to load the symbol table punch program after the 
processing of the source program has been completed. In general it is advisable to use 
the Fortran Subroutine Deck during the compilation phase rather than during the object 
deck execution phase. This is mandatory for the U.T.O. version, optional for the 
I.B.M. versions. The U.T.O. processor will automatically clear the symbol table 
storage area if the subroutines are not used during the compilation of the source program. 
P. D.Q. SYMBOL TABLE PUNCH 

This program, like the program for the U.T.O. version, requires that the 
subroutines be used at the source deck compilation phase, since the symbol table storage 
area is also cleared if the subroutines are not used during this phase. 

The original P. D.Q. system was developed with a symbol table punch routine 
incorporated within the CLT2 processor. The routine that was used will punch the table 
in a numeric form, which, besides being very difficult to read, destroys the area for 
the program discussed here. The routine used by the P. D.Q. processor is governed by 
switch two on the 1620 console. If switch two is off then the source program listing and 

35 
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the symbol table will be punched on cards. It is desirable to have the program listing 
on cards because of the time saved, but it is also desirable to eliminate the symbol 
table punch routine used in the original P„D.Q. system. If the "branch control switch 
two" instruction in the symbol table routine is changed to an "unconditional branch" 
then it will be possible to retain the program listing on cards and eliminate the symbol 
table punch routine. 

The above change would be necessary in the P.D.Q.— CLT2 processor only. 
In the P.D.Q. documentation from the 1620 USERS GROUP LIBRARY, page 193, line 
number 7552 is the instruction which reads "BC2 EXIT." This instruction should be 
changed to read "B EXIT. " 

OPERATING THE PROGRAMS 

1 . Compile source program. 

2. Place symbol table punch program in card reader and press LOAD 
button on the reader. 

3. Press START on the card punch. 

4. Press START on the 1620 console when machine returns to a manual mode. 

5. When punching is completed, remove cards from the card punch and list 

on an I.B.M. 407 machine with an 80~80 board. 

PROCESSING TIME 

The approximate computer time necessary to accomplish the symbol table 

punch is given by the following equation: 

Execution time = (A x B) + 20 seconds 

where A = number of symbols 

and B = card punch speed of the computer 

35 

3 V.*?4<J 



ADAPTATION TO OTHER THAN 20 K MACHINES 
It is necessary to change the instruction labeled "DOIT" in both programs 

for machines having memory packages larger than 29K. 

The instruction reads: "DOIT TFM 1NFAD, 19999." For a 40K machine 

the Q portion must be changed to read "39999", for 60K it would be "59999", 

et cetera . 
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GENERAL FLOW DIAGRAM 
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07179 


07174- 
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TF 


OBJAD , I NFAD 
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07184 


07 174 


00220 




TF 


M D A D , I N FAD 
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07186 


90000 
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ELIM 


TDM 


CHI-1 ,0,27, ZEROIZE OUTPUT AREA 




14 


06042 


07345 


00240 




CM 


*-6»CH 1+158 




46 


60 9 6 


012 


00250 




BE 


# + 36 




11 


06042 


00 001 


00260 




AM 


#-30,1,10 




49 


06036 


00000 


00270 
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I.B.M., U.T.O. SYMBOL TABLE PUNCH PROGRAM LISTING (CONT'D) 



6388 
6400 
640 8 
6408 
642 
6432 
6444 
6456 
6468 
6476 
6476 



6438 

6 5 00 

6512 

6524 

6536 

6548 

6560 

6568 

6568 
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6592 
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6616 

6624 

6624 
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6648 

6660 

6672 

6684 
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6708 

6716 
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6 7 40 
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73 07293 07174 
49 06636 00000 



12 07184 
44 06476 
14 07174 

46 07032 
73 07293 
49 06636 



00001 
07184 
00999 
01200 
07174 

ooooo 



12 07184 oooei 



44 6624 
12 07184 
43 06568 
12 07184 
73 07249 
73 07261 
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07184 
00091 
07184 

oooei 

07174 
07184 

0Q000 
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12 Q7184 00006 

73 07283 07184 

73 07271 07174 

49 06636 00000 



3 3 6007 
26 C7184 
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39 07187 
12 07174 
12 07179 
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26 07219 
32 06007 
15 07184 
12 07184 
44 06660 
11 07184 
44 06808 
49 06660 
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06007 
00400 
OOOiO 
000*0 
07174 
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NOTCN SM M0DAD,1,10 

BNF NOTAC, MODAD, 11, NOT FIXED PT. TYPE 
CM INFAD,999,69,END OF SYMBOL TABLE 
tL ^ t IT ' ,,ENd OF SYMBOL TABLE ROUT I NF 
B ^ 06 ' INFA D>11.MOVE 3 DIGIT CONSENT 
D0RG*-3 

SM MODAD,1,10 

11 BRANCH IF NOT FLOATING PT.» FIXED ** 
STATMENT OR FORMAT NUMBERS. ** 

BNF CLF, MODAD, 11 
SM MODAD»1»10 
BD MAT »MODAD * 1 1 
SM MODAD, 1,10 
TNF CHI+62,INFAD 
TNF CHI+74, MODAD 
B CARRY 
D0RG*-3 

SM MOD.ADtl.10 
SM MODAD, 6,610, 
TNF CHI+96,M0DAD 
TNF CHI+84,INFAD 
B CARRY 
D0RG*-3 
CF DOIT+7 
TF MODAD » I NF AD 
BNF DIMEN, DOIT+7 
WACDCHI 

SM INFAD»10» 10 
SM OBJAD,10>10 
TF MODAD » I NFAD 
B ELIM 
D0RG*-3 

TF CHI+32»INFAD 
SF DOIT+7 
TDM MODAD » 5 
SM MODAD* 10 ,10 
BNF RESAY, MODAD, 
AM MODAD, 1,10 
BNF DIE, MODAD, 11 
B RESAY 
D0RG*-3 



MAT 



CLF 
CARRY 

RESAY 



DIMEN 



♦BRANCH IF FORMAT NUMBER 

»11»M0VE STATEMENT NUMBER 
,11, MOVE OBJECT ADDRESS 



MODIFY OBJECT ADDRESS 
,11, MOVE OBJECT ADDRESS 
,11, MOVE FORMAT NUMBER 



, BRANCH FOR VARIABLE NAME 



,11, MOVE NAME OF VARIA3LE 

11, BRANCH NO DIMENSION 
♦BRANCH IF DIMENSIONED 



** DIMENSION SIZES ARE FOUND BY SUB- ** 

TRACTING ONE DIMENSION SIZE WHICH ** 
** IS KNOWN FROM THE DIFFERENCE IN ** 
** SYMBOL TABLE ADDRESSES PLUS TEN. ** 
** THE NUMBER OF SUBTRACTIONS REQUIR- ** 
** ED TO BRING THE RESULT TO EQUAL ** 
** ZERO IS THE SIZE OF THE SECOND DI- ** 
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I.B.M., U.T.O. SYMBOL TABLE PUNCH PROGRAM LISTING (CONT'D) 











01100 


* 


*# MENS I ON. ' ■ " ■ ** 










OHIO 














01120 






68G8 


41 






01130 


DIE 


NOP » * .STORAGE FOR SYMBOL TABLE ADDRESSES 


6820 


15 


07184 


00009 


01140 




TDM MODAD » 9 


6832 


26 


06819 


07184 


0115 




TF DIE + H »MODAD» 11 .LOWER ADDRESS 


6844 


26 


06814 


07179 


01160 




TF DIE+6.0BJAD. .HIGH ADDRESS 


6856 


73 


07207 


06819 


01170 




TNF CHI+20.DIE+ 11 » .MOVE LOWER ADDRESS TO CD 


6868 


22 


06814 


06819 


01180 




S DIE+6.DIE+11. .FIND DIFFERENCE 


6880 


11 


06814 


OOOiO 


01190 




AM DIE+6.10. 10.UP DIFFERENCE BY TEN 


6892 


12 


07184 


oooes 


01200 




SM MODAD .5.10 


6904 


26 


06830 


07184 


01210 




TF DIE+22.MODAD.11.BRING IN ONE DIMENSION 


6916 


73 


07229 


07184 


01220 




TNF CHI+42. MODAD. 11 .MOVE DIMENSION TO CARD 










01230 














01240 




** NEXT NOP USED AS COUNTER FOR SUBTRACTIONS 










01250 






6928 


41 


- 




01260 




NOP , .38 


6940 


11 


06939 


oooei 


01270 




AM *-l,1.10»COUNTER OF SUBTRACTIONS 


6952 


22 


06813 


06830 


01280 




S DIE+5.DIE+22 


6964 


47 


06940 


01200 


01290 




BNZ *-24 


6976 


73 


07239 


06939 


01300 




TNF CHI+52.*-37» .MOVE SECOND DIMENSION 


6988 


26 


06939 


06934 


01310 




TF *-49.*-54. .ZEROIZE COUNTER FIELD 


7000 


26 


07179 


06819 


01320 




TF OBJAD.DIE+11. .RESET SYMBOL TABLE ADDR . 


7012 


12 


07174 


OOOiO 


01330 . 




SM INFAD .10. 10 


7024 


49 


666 


00000 . 


01340 




B RESAY 


7032 








01350 




DORG*-3 










01360 














01370 


* 


** THE SYMBOL TABLE PUNCH ROUTINE IS ** 










01380 


# 


• ** COMPLETED AT THIS POINT. ** 










01390 


*. 




7032 


48 






01400 


EXIT 


H 


7044 


49 


07032 


00000 


01410 




B EXIT 


7052 








01420 




DORG*-3 










01430 


# 












01440 


*• 


** DEFINITIONS FOLLOW NEXT. ** 










01450 






7053 




00015 


00000 


01460 


ZA1 


DAC 15. ADDRESSES NAME. 


7083 




00015 


00000 


01470 


ZA2 


DAC 15.DIMENSION STATE. 


7113 




00014 


00000 


01480 


ZA3 


DAC 14.L0C FORM LOC ♦ 


7141 




00015 


00000 


01490 


ZA4 


DAC 15.FIX FLOATING. 


7174 




00005 


00000 


01500 


INFAD 


DC 5.0 


7179 




00005 


00000 


01510 


OBJAD 


DC 5.0 


7184 




00005 


00000 


01520 


MODAD 


DC 5.0 


7187 




00080 


00000 • 


01530 


GHI 


DAS 80. 


6000 








01540 




DENDDO IT 



0324 
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SAMPLE PROBLEM * 1 LISTING 



PROGRAM TO SOLVE SIMULTANEOUS LINEAR EQUATIONS BY INVERSION AND 
MULTIPLICATION OF MATRICES. 

IRONS, R.C., NAVSCHAVMED, P^NSACOLA FEBRUARY 1964 

DIMENSION W( 28) ,RCP( 28) ,R{ 28,29) 

READ IN K» WHICH EQUALS THE NUMBER OF UNKNOWNS 

24 READ 93, K 

SET THE COUNTER N EQUAL TO K+l 
N = K+1 

READ IN CONSTANT VALUES COLUMN BY COLUMN UNTIL MATRIX IS FULL. 
THIS MEANS READ ALL X VALUES, ALL Y VALUES AND SO FORTH. 

DO 26 M=l ,K 
DO 25 J=l ,K 

25 READ 94,RU,M) 

26 CONTINUE 

DO LOOP NUMBER 18 CONTROLS THE INVERSION OF THE MATRIX. L GIVES 
THE ROW WHICH IS OF MAIN INTEREST AT ANY PARTCULAR TIME. 

DO 18 L=l ,K 

DO LOOP NUMBER 3 SETS THE LAST COLUMN IN ALL ROWS EQUAL TO ZERO 

DO 3 J=l ,K 
3 R( J,N)=0. 

THE STATEMENT R(L,N)=1. PUTS A VALUE OF 1 IN THE LAST COLUMN 
OF THE ROW WHICH IS EQUAL TO L. 

R(L,N)=1. 

DO LOOP NUMBER 43 CAUSES ALL VALUES FROM COLUMN ONE OF ALL ROWS 
TO BE TRANSFERED TO A STORAGE AREA CALLED WV 

DO 43 J = l ,k 
43 W( J)=R( J,l ) 

DO LOOP NUMBER 2 CHECKS FOR VALUES OF ZERO IN COLUMN ONE OF ALL 
ROWS. FINDS THEIR RECIPROCALS AND STORES THESE IN RCP. 

DO 2 J*1,K 
IF(R(J.l) )1,61»1 
61 RCP( J ).»0. 
GO TO 2 

1 RCP(J)»1./R( J,l ) 

2 CONTINUE 



A07070 

A07070 

A07070 

A07070 

A07070 

AC7070 

A07070 

A07070 

A07070 

A07070 

A07070 

A07094 

A07094 

A07094 

A07094 

A07130 

A07130 

A07130 

A0713C 

A07130 

A07142 

A07154 

A07274 

A0731O 

A07310 

A07310 

A07310 

A07310 

A07322 

A07322 

A07322 

A07322 

A07334 

A07454 

A07454 

A07454 

A07454 

A07454 

A07538 

A07538 

A07538 

A07538 

A07538 

A07550 

A07658 

A07658 

A07658 

A07658 

A07658 

A07670 

A07750 

A07798 

A07806 

A07890 

A07926 



361 



SAMPLE PROBLEM * I LISTING (CONT'D) 



DO LOOP NUMBERS 5 AND 4 CAUSE ALL COLUMNS OF EACH ROW TO BE 
MULTIPLIED BY THEIR RESPECTIVE RCP VALUES. ROWS WITH A RCP 
VALUE OF ZERO WI LL NOT BE MULT I PI ED. 

DO 5 J= 1 » K 
DO 4 M = 1 > N 
IF(RCP( J) )6»4»6 

6 R( J»M)=R( JtM)*RCP( J) 

4 CONTINUE 

5 CONTINUE 

DO LOOP NUMBERS 15 AND 14 SUBTRACT THE ROW WHICH IS EQUAL TO L 
FROM ALL OTHER ROWS IN THE MATRIX. 

DO 15 M=1»N 
DO 14 J=l »K 
IF(L-J) 13»14,13 

13 R( J»M)=R( J»M)-R(L,M) 

14 CONT INUE 

15 CONTINUE 

DO LOOP NUMBERS 12 AND 7 CAUSES ALL COLUMNS OF EACH ROW TO BE' 
MULTIPLIED BY THE VALUE WHICH WERE ORIGINALLY IN COLUMN ONE. 
THESE VALUES WERE STORED IN W. VALUES OF ZERO IN ANY W WILL NOT 
BE USED. 

DO 12 J=l »K 
DO 7 M=1»N 
IF(L-J)8»7»8 
8IF(W(J))11»7»11 
11R(J»M)=R(J»M)*W(J) 

7 CONTINUE 
12 CONTINUE 

DO LOOP NUMBERS 17 AND 16 CAUSE COLUMN ONE IN EACH ROW TO BE 
REPLACED BY THE VALUES IN COLUMN TWO. COLUMN TWO BY COLUMN 
THREE AND SO FORTH. 

DO 17 J=l »K 
DO 16 M=1»K 

16 R(J»M)=R(J»M+1) 

I 7 CONTINUE 

STATEMENT NUMBER 18 IS THE LAST STATEMENT OF THE MATRIX INVERSION 
ROUTINE. IF L EQUALS K THEN INVERSION IS COMPLETE. 

1 b CONTINUE 

DO LOOP NUMBER 19 READS CONSTANTS FOR EACH EQUATION INTO THE. LAST 
COLUMN OF THE MATRIX. 

DO 19 J=1»K 
M READ 94,R(J»N) 

DO LOOP NUMBER 20 WILL ZEROIZE RCP STORAGE AREA FOR STORING SUMS 



A07926 

A07926 

A07926 

A07926 

A07926 

A07938 

A07950 

A08030 

A08210 

A08246 

A08282 

A08282 

A08282 

A08282 

A06282 

A08294 

A08306 

A08374 

A08590 

A08626 

A08662 

A08662 

A08662 

A08662 

A08662 

A08662 

A08662 

A08674 

A08686 

A08754 

A08834 

A09014 

A09050 

A09086 

A09086 

A09086 

A09C86 

A09086 

A09086 

A09098 

A091 10 

A092 90 

AO 93 2 6 

A 9 3 2 6 

A 9 3 2 6 

A09326 

A 9 3 2 6 

A09362 

A09362 

A09362 

A09362 

A09362 

A09374 

A09494 

A09494 
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SAMPLE PROBLEM # 1 LISTING (CONT'D) 



IN MATRIX MULTIPLICATION* 

DC 20 J = 1,K 

20 RCP(J)=0 . 

DO LOOP NUMBERS 22 AND 21 CAUSE MATRIX MULT I P I CAT I ON AND SUMMING 
INTO RCP FOR EACH ROW TO BE PERFORMED. 

DO 22 J=l »K 
DO 21 M=1,K 

21 RCP ( J ) = ( R ( J »M ) #R { M »N ) ) +RCP ( J ) 

22 CONTINUE 

HEADER -CARD IS NOW PUNCHED FOR OUTPUT . 
PUNCH 91 

DO LOOP NUMBER 23 CAUSES THE UNKNOWN NUMBER AND THE VALUE OF THE 
UNKNOWN TO BE PUNCHED. 

DO 23 J=l tK 
PUNCH 95tJ»RCP(J) 
2 3 CONTINUE 

NEXT STATEMENT TYPES PROBLEM COMPLETED STATEMENT. 
TYPE 92 

PROGRAM STOPS FOR OPERATpR AT THIS POINT . 
PAUSE 

IF THERE IS ANOTHER PROBLEM THEN IT IS DESIRED TO READ IN A NEW 
VALUE OF UNKNOWNS AND A NEW MATRIX. 

GO TO 24 

HEADER CARD FORMAT IS NEXT 

91 FORMAT ( 30HUNKNOWN NUMBER UNKNOWN VALUE/) 
PROBLEM COMPLETED MESSAGE FORMAT IS NEXT . 

92 FORMAT ( 42HPROBLEM COMPLETED. PUSH START FOR NEW RUN./) 
UNKNOWN VALUE FORMAT IS NEXT . 

93 FORMAT (12) 

INPUT FOR VALUES ON UNKNOWNS FORMAT IS NEXT. 

94 FORMAT ( F10. 8 ) 

FORMAT FOR OUTPUT VALUES IS NEXT. 

3 6 3 



A09494 

A09494 

A09494 

A09506 

A09590 

A09590 

A09590 

A09590 

A09590 

A09602 

A09614 

A09866 

A09902 

A09902 

A09902 

A09902 

A09914 

A09914 

A09914 

A09914 

A09914 

A09926 

A09966 

A10022 

A10022 

A10022 

A10022 

A10034 

A 100 3 4 

A10034 

A10034 

A10046 

A10046 

A10046 

A10046 

A10046 

A10054 

A10054 

A10054 

A10054 

A10144 

A10144 

A10144 

A10144 

A10258 

A10258 

A10258 

A10258 

A10280 

A10280 

A10280 

A10280 

A10302 

A10302 

A10302 
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SAMPLE PROBLEM # 1 LISTING (CONT'D) 



FORMAT(5XI2,10XF11 .5, A103o2 ^ 

A 10344 
00167 



*0 
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SYMBOL TABLE LISTING OF PROBLEM # 1 



19549 
19269 
11149 



ADDRESSES 
19999 
19989 
19979 
19969 
19959 
19949 
19939 
19929 
19919 
19909 
19899 
1988 9 
19879 
19869 
19859 
19849 
19839 
19829 
19819 
19539 
19259 
1 1139 
11129 
11119 
11109 
11099 
11089 
11079 
11069 
11059 
11049 
11039 
110 2 9 
11019 
11009 
10999 
10989 
10979 
10969 
10959 
10949 
10939 
10929 
10919 
10909 
10899 
10889 
10879 
10869 
10859 
10849 
10839 
10829 
10819 



NAME 

SIN 

SINF 

COS 

COSF 

ATAN 

ATANF 

EXP 

EXPF 

LOG 

LOGF 

SQRT 

SQRTF 

SIGN 

SIGNF 

ABS 

ABSF 

RDNM 

R'DNMF 

W 

RCP 
R 



DIMENSION STATE LOC FORM LOC 



FIX 



FLOATING 



0028 0001 
0028 0001 
0028 0029 



00 24 07070 



0026 07274 

0025 07154 

0018 09326 

0003 07334 



0043 
0002 
0001 
0061 
0005 
0004 
0006 
0015 
0014 
0013 
0012 
0007 
0008 
0011 
0017 
0016 
0019 



07550 
07890 
07806 
07750. 
08246 
08210 
08030 
08626 
08590 
08374 
09050 
09014 
08754 
08834 
09290 
09110 
09374 



0093 10258 



0001- 
000 



0094 10280 



00000000 99- 
10000000 01 



A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
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SYMBOL TABLE LISTING OF PROBLEM * I (CONT'D) 



0020 09506 
0022 09866 

0021 09614 



0023 09986 



001 



0091 100 54 

0095 10302 

0092 10144 



0063 
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P.D.O. SYMBOL TABLE PUNCH PROGRAM LISTING 











X \J 
















00020 




** PROGRAM TO DUMP P.D.O. FORTRAN TYPE ** 










00030 




** SYMBOL TABLE ON CARDS. ** 










00040 




* 












00050 


•* 


* 


## 










00060 


* 


**D0RG CAN BE CHANGED AS DESIRED.fi ** 










00070 






» *-* 


60 00 








80 




DORG6000 










90 


* 














00100 




** THE Q ADDRESS OF THE INSTRUCTION ** 










00110 




** LABLED DOIT IS THE ONLY INSTRUCTION ** 










fin i ? fi 

w v X A ^ 




** REQUIRING A CHANGE FOR MACHINES OF ** 










00 13 


-* 


** GREATER THAN 20K MEMORY. A THREE ** 










00140 




** IN Q7 WOULD ADAPT TO A 40K SIZE* A #* 










00150 




** FIVE FOR 60K AND SO ON • ** 










1 Afi 
X o u 








Q u u o 


1 A 




1QQQQ 

T y y y y 


00170 


DO I T 


TFM 


INFAD* 19999* *20K MEMORY MACHINE 


Afi 1 ? 


9 A 

A U 


07207 


072 02 


00180 




TF 


OBJAD ♦ INFAD 


O ^ £ M- 


9 A 

A O 


vJ / A X A 


fi7? n? 

\J 1 A W A 


00190 




TF 


MODAD* INFAD 


a n "3 a 


1 


0771 a 
W ( A X H 




00 2 00 


FI T M 


TDM 


CHI-1»0»27*ZEROIZE OUTPUT AREA 


c n /. r 


1 Zl 
X M- 


fi AfiZi. 9 


ft 7 1 7^ 


fifi 9 1 fi 




CM 


*-6,CHI+158 


60 6 


46 


6096 


01200 


00220 




BE- 


* + 36 


A fi 7 ? 

O *J i A 


i i 

x x 


6042 


00001 


00230 




AM 


*-30»l »10 


O v O *+ 




6036 


n o fi fi 

W \J v> 


00240 




B 


ELIM 


60 96 


1 6 


06042 


97214 


00250 




TFM 


ELIM + 6 »CHI-1 


A 1 ft 

O X U O 


44 


6200 


06043 


00260 




BNF 


EMOD » EL IM+7 »» FLAG FOR HEADER CARD 


A 1 ? fi 

O X A vj 


9 A 

A O 


fi 7 ? 4 S 


07109 


00 2 70 




TF 


CHI+30*ZAl+28 


A 1 ^ 9 
O 1 -J C 


9 A 

A O 


7279 


7139 


00280 




TF 


CHI+64»ZA2+28 


A 1 4.4 


P A 

A U 


7309 


7167 


00290 




TF 


CHI+94»ZA3+26 


A 1 A A 


9 A 

A O 


U 1 JT J 


n 7 1 Q 7 
v 1 x y l 


no ^ofi 

\j yj d 




TF 


CHI+130»ZA4+28 


A 1 A ft 
DIDO 


_> y 


fi 7 ? 1 ^ 

w 1 A X -J 


fifi 4fifi 


00310 




WACDCHI * » » WR I TE HEADER CARD 


ATA fi 




( \ A fl /■ 3 


uuuuu 


U vj _> A VJ 




CF 


ELIM+7 


A 1 O 9 
D 1 7 A 




fi A fi "3 A 


fififififi 


00330 




B 


ELIM 


a ? no 

O A W W 








00340 




DORG*-3 


A ? fi 

Q A ^ w 


7 3 


7 22 3 


072 07 


003 50 


EMOD 


TNF 


CHI+8 »QBJAD» .SYMBOL TABLE ADDRESS 


A 9 1 D 
O A X A 


h Zi 
H H 


fi A 3 A Zl 


U I A U ^ 


00360 




BNF 


NOTFL-12 * INFAD* 11 *BRANCH NOT FL.PT. 


A 9 9 I, 
O A A H- 


1 9 
1 A 


U i A X A 


OOfi 


fin^7fi 




SM 


MODAD»3»10 


A 9 ^ A 


*-r ' 


6272 


7 212 


00380 




BNF 


*+36*MODAD*ll»BRANCH FLOATING POINT 


A 9 L. ft 
D A *+ O 


1 1 
X X 


fi 7 9 1 9 
U ( A X A 


<J \J VJ V A 


00390 




AM 


MODAD » 2 » 1 


A ? A fi 


49 


637 6' 


00000 


00400 




B 


NOTFL 


6272 


33 


07202 


00000 


00410 




CF 


INFAD* »6*BEGIN FL. PT. TRANSFER 


6284 


12 


07202 


00007 


00420 




SM 


INFAD»7*10 


6296 


32 


07202 


00000 


00430 




SF 


INFAD* »6 


6308 


12 


07202 


oooei 


00440 




SM 


I NFAD » 1 » 10 


6320 


73 


07331 


07202 


00450 




TNF 


CHI +116, INFAD* 11 »M0VE CHARACTERISTIC 


6332 


11 


07202 


00068 


00460 




AM 


INFAD»8»10 


6344 


73 


07349 


07202 


00470 




TNF 


CHI+134»INFAD*11»M0VE MANTISSA 


6356 


49 


06660 


00000 


00480 




B 


CARRY 


6364 








00490 




DORG*-3 


6364 


12 


07212 


oooei 


00500 




SM 


MODAD » 1 » 10 


6376 


44 


06432 


07202 


00510 


NOTFL 


BNF 


NOTCN* INFAD»11 *NOT FOUR DIGIT FX. PT. 


6388 


16 


07323 


00020 


00520 




TFM 


CHI+108*20»10 


6400 


33 


07202 


00000 


00530 




CF 


INFAD* »6 


6412 


73 


07321 


07202 


00540 




TNF 


CHI+106. INFAD. 11.M0VE FIXED PT. NO. 
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P. D.Q. SYMBOL TABLE PUNCH PROGRAM LISTING (CONT'D) 



6424 


49 


06660 


00000 


00550 




B CARRY 


6432 








00560 




D0RG*-3 


6432 


12 


07212 


oooei 


005 70 


NOTCN 


SM MODAD»1»10 


6444 


44 


06500 


07212 


00580 




BNF N0TAC»M0DAD»11»N0T FIXED POINT TYPE. 


6456 


14 


07202 


00999 


00590 




CM INFAD»999 ,69, END OF SYMBOL TABLE. 


6468 


46 


07056 


01200 


00600 




BE EXIT 


6480 


73 


07321 


07202 


00610 




TNF CHI+106, INFAD, 11»M0VE 3 DIGIT FX. PT. 


6492 


49 


06660 


00000 


00620 




B CARRY 


6500 








00630 




D0RG*-3 


6 5 00 


12 


07212 


oooei 


00640 


NOTAC 


SM MODAD,1,10 


6512 


44 


06648 


07212 


00650 




BNF CLF ,MODAD »1 1 »VARI ABLE NAME OR DIMENSION 


6524 


12 


07212 


oooei • 


00660 




SM MODAD»1,10 


6536 


43 


06592 


07212 


00670 




BD MAT »MODAD ,11 ,BRACH IF FORMAT NO. 


6548 


12 


07212 


oooei 


00680 




SM MODAD»1»10 


6560 


73 


07277 


07202 


00690 




TNF CHI+62 , INFAD,11 ,MOVE STATEMENT NO. 


6572 


73 


07289 


07212 


00700 




TNF CHI+74»M0DAD,11 ,MOVE OBJECT ADDRESS 


6584 


49 


06660 


00000 


00710 




B CARRY 


6592 








00720 




D0RG*-3 


6592 


12 


07212 


oooei 


00730 


MAT 


SM MODAD»1,10 


6604 


12 


07212 


oooe6 


00740 




SM MODAD»6,610 


6616 


73 


07311 


07212 


00750 




TNF CHI+96»M0DAD,11 ,MOVE OBJECT ADDRESS 


6628 


73 


07299 


07202 


00760 




TNF CHI+84, INFAD»11 ,MOVE FORMAT NO. 


6640 


49 


06660 


ooooo • 


00770 




B CARRY 


6648 








00780 




D0RG*-3 


6648 


33 


600 7 


CO 


00790 


CLF 


CF DOIT+7 


6660 


26 


07212 


07202 


00800 


CARRY 


TF MODAD » I NFAD 


6672 


44 


06740 


06007 


00810 




BNF DIMEN, DO IT+7», VARIABLE NAME - DIMENSION' 


6684 


39 


07215 


00400 


00820 


RESAY 


WACDCHI , ♦ , PUNCH OUTPUT CARD V, 


6696 


12 


07202 


OOOiO 


00830 




SM INFADtlOtlO 


6708 


12 


07207 


OOOiO 


00840 




SM OBJAD, 10,10 


6720 


26 


7212 


07202 


00850 




TF MODAD, INFAD 


6732 


49 


06036 


OOOOO 


00860 




B ELIM 


674C 








00870 




D0RG*-3 


6740 


26 


07247 


07202 


00 880 


DI MEN 


TF CHI+32, INFAD, 11 , MOVE VARIABLE NAME. 


6752 


32 


06007 


OOOOO 


00890 




SF DOIT+7 


6764 


15 


07212 


00005 


00900 




TDM MODAD, 5 


6776 


12 


07212 


OOOiO 


00910 




SM MODAD»10,10 


6788 


44 


06684 


07212 


00920 




BNF RESAY, MO DAD*11 , BRANCH NOT DIMENSIONED 


68 00 


11 


07212 


oooei 


00930 




AM MODAD, 1,10 


6812 


44 


06832 


07212 


00940 




BNF DIE, MODAD, 11, BRANCH IF DIMENSIONED 


6824 


49 


06684 


OOOOO 


00950 




B RESAY 


6832 








00960 




D0RG*-3 










970 














00980 


* 


** THE DIMENSION SIZES ARE FOUND BY ** 










00990 


* 


** FINDING THE DIFFERENCES IN THE ** 










01000 


# 


** SYMBOL TABLE ADDRESSES PLUS TEN. ** 










01010 


* 


** ONE DIMENSION SIZE IS ALRFADY KNOWN ** 










01020 


* 


** AND IS SUBTRACTED FROM THE ADDRESS 










01030 


* 


** DIFFERENCES UNTIL THE RESULT IS ** 










01040 


* 


** FOUND TO BE EQUAL TO ZERO. THE 










01050 


# 


** NUMBER OF SUBTRACTIONS NECESSARY TO *# 










01060 


* 


** DO THIS IS THE SIZE OF THE SECOND ** 










01070 


# 


** DIMENSION. ** 










01080 


* 




6832 


41 






01090 


DIE 


NOP ,,,WORK AREA FOR DIMENSION SIZE 
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P.D.Q. SYMBOL TABLE PUNCH PROGRAM LISTING (CONT'D) 



6844 
6856 
6868 
688C 
6892 
6904 
6916 
6928 
6940 
6952 
6964 
6976 
6988 
7 
701 2 
7024 
70 36 
7048 
7056 



7056 
7068 



70 81 
7111 
7141 
7169 
72 02 
7207 
7212 
7215 
6000 



15 07212 
26 06843 
26 06838 
73 07235 
2 2 6838 

11 06838 

12 07212 
26 06854 
73 07257 
41 - 

11 06963 
22 06837 
47 06964 
73 07267 
26 06963 
26 07207 

12 07202 
49 06684 



00009 
0721? 
072 07 
06843 
06843 
00 0*0 
00065 
07212 
07212 

oooei 

06854 
01200 
06963 
06958 
06843 
i 
00 000 



48 

49 07056 00000 



00015 
00015 
00014 
00015 
00005 
00005 
00005 
00080 



00000 
00000 
00000 
00000 
00000 
00000 
0000 
00000 



onoo 

01110 

01120 

01130 

01140 

01150 

01160 

01170 

01180 

01190 

01200 

01210 

01220 

01230 

01240 

01250 

01260 

01270 

01280 

01290 

01300 

01310 

01320 

01330 

01340 

01350 

01360 

01370 

01380 

01390 

01400 

01410 

01420 

01430 

01440 

01450 



EXIT 

ZA1 

ZA2 

ZA3 

ZA4 

INFAD 

OBJAD 

MODAD 

CHI 



TDM MODAD » 9 

TF DIE+11, MODAD. 11, LOWER SYMBOL TbL. ADD R ■ 
TF DIE+6,0bJAD, , UPPER SYMBOL TbL. ADDRESS 
TNF CHI+20.DI E+ll , .MOVE LOWER ADDRESS 
S DIE+6.DIE+11 > »FIND DIFFERENCE 
AM DIE+6. 10.10 
SM MODAD.5,10 

TF DIE+22 .MODAD.ll , BRING IN ONE DIMENSION 
TNF CHI +42 •MODAD. 11, MOVE ONE DIMENSION 
NOP ,,38, AREA FOR SECOND DIMENSION 
AM *-l,l,10 

S DIE+5 , DIE+22, ,DIMEN. FROM TBL. DIFF. 
3NZ *-24 

TNF CHI+52 »*-37, ,MOVE SECOND DIMENSION 
TF *-49,*-54, .ZEROIZE SECOND DIMENSION 
TF OBJAD.DIE+ll, .NEW SYMBOL TAbLE ADDRESS 
SM INFAD. 10,10 
B RESAY 
DORG*-3 

** END OF SYMBOL TABLE ROUTINE ** 
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** AREA DEFINITIONS FOLLOW BELOW 

DAC 15. ADDRESSES NAME. 
DAC 15, DIMENSION STATE, 
DAC 14.L0C FORM LOC. 
DAC 15.FIX FLOATING. 
DC 5 ,0 
DC 5,0 
DC 5.0 
DAS 80, 
DENDDOI T 
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SAMPLE PROBLEM * 2 LISTING 



6 6 
6 6 
06600 
6 6 v 
J 6 6 
06600 
6 6 U 
6 612 
06624 
06636 
664 8 
6 6 6 
6 6 7 2 
66 8 4 
6 6 9 6 
06708 
06720 
6 744 
6 7 5 6 
7 2 
7 5 6 
07076 
7 8 8 
7 3 5 2 
7 3 8 8 
7 38 8 
07400 
07616 
07832 
08048 
815 6 
8 348 
08504 
86 1 2 
8 7 2 
8 8 7 6 
09032 
09092 
915 2 
9 212 
09272 
09332 
9 3 9 2 
095 96 
09872 
J01 12 
J 1 7 2 
J 2 3 2 
J 2 9 2 
J 3 2 8 
J0424 
J 5 2 
J0616 
J0712 
J0806 



cz 



SUMX2( I ) »SUMY( I ) tSUMY2( I ) »SUMXY( I ) 



SUMX2 ( I ) »SUMY ( I ) » SUMY2 ( I ) >SUMXY ( I ) 



WHERRY TRANSFORM EQUATION FOR EQUATING SUBGROUP5Z 
DIMENSION CASES ( 9 ) .SUMX ( 9 ) »SUMX2 ( 9 ) •SUMY ( 9 ) » SUMY 2 ( 9 ) ,SUMXY (9)1 
DIMENSION EXX ( 9 ) >EYY ( 9 ) »EXY ( 9) ,BETA ( 9) » ALPHA ( 9 ) »R (9 ) » X M E A N ( 9 ) 
DIMENSION YMEAN ( 9 ) »STDVX(9) »SXTR(9)»SX2TR(9)»SXYTR(9)Z 
DIMENSION BETA3(9)»ALPH3(9)»FMNX(9) ,ESDX ( 9 ) * S TDV Y ( 9 ) , I D ( 9 ) 

BIGN=0. 
SSX = C . 
SSX2=0. 
SSY=0. 
SSY2=0. 
SSXY = , 
X 2 T R = . 
XYTR=0. 
XTR=0, 
PUNCH 202Z 
READ 201, <Z 
DO 3 I=1,KZ 

READ 103 » ID ( I ) , CASES ( I ) ,SUMX ( I ) 

3 CONTINUEZ 
IF (SENSE SWITCH 2)4,5Z 

4 DO 6 I=1,KZ 
TYPE 103 » ID ( I ) , CASES ( I ) >SUMX ( I ) 

6 CONTINUEZ 

5 CONTINUEZ 
DO 1 1 = 1, KZ 

EXX( I ) = ( CASES ( I )*SUMX2( I ) )-(SUMX( I )*SUMX( I ) ) Z 
EYY( I ) = (CASES ( I )*SUMY2( I ) )-(SUMY( I )*SUMY( I ) )Z 
E XY ( I ) = (CASES ( I ) *SUMXY ( I ) ) - ( SUMX < I ) *SUM Y ( I ) ) Z 
BETA ( I ) =EXY ( I ) /EXX ( I ) Z 

ALPHA ( I ) = (SUMY( I )-(bETA( I )*SUMX( I ) ) ) /CASES ( I )Z. 
R ( I ) =EXY ( I ) /SGRTF ( EXX ( I ) *E YY ( I ) ) Z 
XMEAN ( I ) =SUMX ( I ) /CASES ( I ) Z 
YMEAN ( I ) =SUMY( I ) /CASES ( I ) Z 

STDVX ( I ) = SQR T F ( EXX ( I ) / ( CASES ( I ) *CASES( I ) ) ) Z 
STDVY( I )=SQRTF(EYY( I )/ (CASES ( I )*CASES( I ) ) )Z 
EUGN = bIGN+C A5ES< I ) Z 
5SX=SSX+SUMX ( I ) Z 
SSX2=SSX2+SUMX2 ( I ) Z 
SSY=SSY+SUMY( I ) Z 
SSY2=SSY2+SUMY2 ( I ) Z 
S5XY=SSXY+SUMXY ( I ) Z 

SXTR( I ) = (BETA( I )*SUMX( I ) ) + (CASES( I )*ALPHA( I ) ) Z 

SX2TR ( I ) = ( ( BETA ( I ) * B ETA ( I ) *EXX (!)) + ( SUMY ( I ) *SUMY ( I ) ) ) /CASFS ( I ) Z 
SXYTR ( I ) = ( ( BETA ( I ) * EX Y ( I ) ) + ( SUMY ( I ) *SUMY ( I ) ) ) /CASES ( I ) Z 
X2TR = X2TR + SX2TR ( I ) Z 
XYTR = XYTR + SXYTR ( I ) Z 
XTR = XTR+SXTR ( I ) Z 
1 CONTINUEZ 

EXYTR=(6IGN*XYTR)-(SSY*XTR)Z 
EXXTR=(B1GN*X2TR)-(XTR*XTR)Z 
EYYT=(BIGN*SSY2)-( SSY^SSY ) Z 
EXXT= ( BIGN*SSX2 ) -( SSX*SSX ) Z 
EXYT= ( BI GN*SSXY ) - ( SSX^SSY ) Z 
R T = E X Y T / S Q R T F ( E X X T *EYYT ) Z 
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SAMPLE PROBLEM # 2 LISTING (CONT'D) 



J0868 

J 92 8 

J J 9 8 8 

J1048 

J 1084 

J 1 1 2 

J1156 

J1216 

J1228 

J1312 

J1408 

J1552 

J 166 

J1696 

J 1 7 8 

J1720 

J1732 

J1996 

J 2 3 2 

J21 16 

J 2 1 2 8 

J 2 140 

J2152 

J2416 

J2452 

J2464 

J2476 

J2488 

J250C 

J2728 

J2764 

J2776 

J 2 7 8 8 

J 2800 

J3064 

J3100 

J3184 

J3196 

J3208 

J3220 

J3484 

J 3 5 2 

J .3604 

J 3640 

J 37 12 

J 38 72 

J 3 924 

J4000 

J4084 

J 42 2 

J4272 

J4300 

J4384 

J4528 

J4576 



31 



32 



33 



34 



35 



101 
102 
103 
104 
105 
106 
107 
108 
109 
111 
112 
113 



RTR=EXYTR/SQRTF(EXXTR*EYYT)Z 
SDTX=SQRTF ( EXXT / ( B I GN*B I GN ) ) Z 

SDTRX=SQRTF(EXXTR/(BIGN*BIGN))Z 

TMNX=SSX/BIGNZ 

TRMNX=XTR/BIGNZ 

BETA2=SDTX/SDTRXZ 

ALPH2=TMNX- ( BETA2*TRMNX ) Z 

DO 2 1=1 >KZ 

BETA3( I )=BETA2*BETA< I )Z 

ALPH3 ( I ) = ( BETA2#ALPHA ( I ) ) +ALPH2Z 

EMNX ( I ) = ( BETA 3 ( I ) *XMEAN (I))+ALPH3(I)Z 

ESDX(I)=BETA3(I )*STDVX( I )Z 

CONTINUEZ 

PUNCH 101Z 

PUNCH 102Z 

DO 31 1=1, KZ 

PUNCH 103 , ID( I ) • CASES ( I ) ,SUMX ( I ) ,SUMX2( I ) ,SUMY< I ) ,SUMY2( I ) ,SUMXY< I ) 
CONTINUEZ 

PUNCH 104,BIGN,SSX,SSX2,SSY,SSY2 ,SSXYZ 
PUNCH 105Z 
PUNCH 106Z 
DO 32 1 = 1, KZ 

PUNCH 107, ID( I ) , CASES ( I ) , X M E A N ( I ) , YM EAN ( I ) ,STDVX( I ) , ST DVY ( I ) , R ( I ) 7 

CONTINUEZ 

PUNCH 108Z 

PUNCH 109Z 

PUNCH 111Z 

DO 33 I=1,KZ 

PUNCH 112, ID ( I ) ,EXX( I ) ,EYY( I ) ,EXY( I ) , ALPHA ( I ) ,BETA( I ) 

CONTINUEZ 

PUNCH 113Z 

PUNCH 102Z 

DO 34 1=1, KZ 

PUNCH 1 03 » ID( I ), CASES ( I ) , SXTR ( I ) ,SX2TR< I ) ,SUMY( I ) , SUMY2 ( I ) ,SXYTR( I ) 
CONTINUEZ 

PUNCH 104,BIGN,XTR,X2TR,SSY,SSY2 ,XYTRZ 
PUNCH 114Z 
PUNCH 115Z 
DO 35 1=1, KZ 

PUNCH 116, ID ( I ) , XMEAN ( I ) ,STDVX( I ) ,EMNX( I ) ,ESDX( I ) ,ALPH3( I ) , BET A3 ( I ) 
CONTINUEZ 

PUNCH 117,TMNX,SDTX,TRMNX,SDTRX,ALPH2,BETA2Z 
PUNCH 118,RT,RTRZ 

FORMAT ( 2X18HOR I G I NAL DATA SUMS/JZ 

FORMAT ( 7HGRP. N , 6X4HSUMX , 9X 5HSUMX 2 , 6X4HSUMY , 6X 5HSUMY 2 , 9X 5HSUMX Y / ) 
FORMAT( I 3,F6.0,F11. 2,F 14.2 ,F9 •0»F12«0» F 14.2 )Z 
FORMAT(/3HSUM,F6.0,F11 . 2 » F 1 4 . 2 , F 9 . , Fl 2 . , F 14 . 2 / / )Z 
FORMAT ( 1 5X24HOR IG I NAL DATA STAT I ST I CS/ ) Z 

FORMAT ( 43HGRP • N MEAN X MEAN Y ST. DEV. X ST.DEV.Y,7H R(XY)/)Z 

FORMAT( I3,F6.0»3F8,3,F9.3 ,F9.4)Z 

FORMAT(//)Z 

FORMAT ( 2 0X24HOR I G I NAL DATA ST AT I ST I CS/ ) Z 

FORMAT (4HGRP.,7X3HLXX,12X3HLYY,11X3HLXY,5X5HALPHA,6X4HBET A/ )Z 
FORMAT ( I 3,3F14.0,2F10.3 )Z 

FORMAT ( //15X33HTRANSFORM TO SLOPE=l, I N TERCEPT=0/ ) Z 
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SAMPLE PROBLEM * 2 LISTING (CONT'D) 




| /, jl q o 

..J 4DOO 


114 


r ORMA T ( 8X8HOR I G I NAL ♦ 7X 1 1 HTRANSFORMFJ)/ ) Z 




1 /■ 7 7 A 
-'HI to 




rUKnAl ( 4 .5 HG KP • M L AN X ST.DEiV.X MfcAN X T • D ~ V • X 


ALPHA ,4X4HBFTA/ ) / 


J 4 ^ 1 4 


116 


FORMAT ( I 3 » 4F8 • 3 * 2F9 • 4 ) Z 


J 4 9 6 6 


117 


FORMAT ( / 3H.SUM » 4 F8 • 3 ♦ 2 F9 • 4 / / ) Z 




J 5 4 2 


118 


FORM A T ( 1 5 NOR I G I N A L R ( X Y ) = F 7 • 4 » 3 X 1 8 H T R A M S F R M F D 


R(XY)=F7.4)Z 


J3 1 56 


201 


F0RMAT(I2)Z 


J b 1 7 8 


202 


FORMAT (44HWHERRY TRANSFORM EG. FOR F QUA TING SUt 


•GROUP:',. / / )Z 


J b 3 1' 




ENDZ 
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SYMBOL TABLE LISTING FOR PROBLEM # 2 



ADDRESSES NAME DIMENSION STATE LOC FORM LOC FIX FLOATING A 

19999 SIN A 

19989 SINF A 

19979 COS A 

19969 COSF A 

19959 EXP A 

19949 EXPF A 

19939 LOG A 

19 929 LOGF A 

19919 SORT A 

19909 SQRTF A 

19899 ABS A 

19889 ABSF A 

19879 DRH A 

19869 DRHF A 

19859 ATAN A 

19849 ATANF A 

19839 19759 CASES 0Q09 0001 A 

19749 19669 SUMX 0009 0001 A 

19659 19579 SUMX2 0009 0001 .A 

19569 19489 SUMY 0009 0001 A 

19479 19399 SUM Y2 0009 0001 A 

19389 19309 SUMXY 0009 0001 A 

19299 19219 EXX 0009 0001 A 

19209 19129 EYY 0009 0001 A 

19119 19039 EX Y 0009 0001 A 

19029 18949 BETA 0009 0001 A 

18939 18859 ALPHA 0009 0001 A 

18849 18769 R 0009 0001 A 

18759 18679 XMEAN 0009 0001 A 

18669 18589 YMEAN 0009 0001 A 

18579 18499 STDVX 0009 0001 A 

18489 18409 SXTR 0009 0001 A 

18399 18319 SX2TR 0009 0001 A 

18309 18229 SXYTR 0009 0001 A 

18219 18139 BETA3 0009 0001 A 

18129 18049 ALPH3 0009 0001 A 

18039 17959 EMNX 0009 0001 A 

17949 17869 ESDX 0009 0001 A 

17859 17779 STDVY 0009 0001 A 

17769 17689 ID 0009 0001 A 

17679 SIGN A 

17669 00 00000000 A 

17659 SSX A 

17649 SSX2 A 

17639 SSY A 

17629 SSY2 A 

17619 SSXY A 

17609 X2TR A 

17599 XYTR A 

17589 XTR A 

17579 0202 15178 A 

17569 0201 15156 A 

17559 K A 

17549 0003 07020 A 
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SYMBOL TABLE LISTING FOR PROBLEM # 2 (CONT'D) 



175 39 


I 












A 


17529 








0103 


13872 




A 


17519 




0004 


07076 








A 


17 5 9 




0005 


07388 








A 


17499 




0006 


07352 








A 


1 7489 




0001 


10292 








A 


1 7479 












001 


A 


17469 












003 


A 


17459 












000 


A 


17449 












002 


A 


17439 












004 . 


A 


17429 


EXYTR . 












A 


17419 


EXXTR 












A 


17409 


EYYT 












A 


17399 


EXXT 












A 


17389 


EX YT 












A 


17379 


RT 












A 


17369 


RTR 












A 


17359 


SDTX 












A 


17349 


5DTRX 












A 


1 7 3 3 9 


TMNX 












A 


17329 


TRMNX 












A 


17 319 


BE T A 2 












A 


17 3 9 


ALPH2 












A 


17 2 9 9 




0002 


11660 








A 


17289 








0101 


13640 




A 


17279 








0102 


13 712 




A 


17269 




0031 


11996 








A 


17259 








0104 


13924 




A 


17249 








0105 


14000 




A 


17239 








0106 


14084 




A 


17229 




0032 


12416 








A 


17219 








0107 


14220 




A 


17 2 9 








0108 


14272 




A 


17199 








0109 


14300 




A 


17189 








0111 


14384 




A 


17179 




0033 


12728 








A 


17169 








0112 


145.28 




A 


17159 








0113 


14576 




A 


1 7149 




0034 


13064 








A 


17139 








1 14 


14688 




A 


17129 








0115 


14776 




A 


17119 




0035 


13484 








A 


17109 








0116 


14914 




A 


170 99 








0117 


14966 




A 


17089 








0118 


15042 




A 



00101 
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MONITOR SUPERVISOR FOR 1620-1311 OR SUPERMONITOR 



The Civil Engineering Systems Laboratory at M.I.T. 
consists in part of an IBM 1620 60K computer with: 

a. Floating-Point Hardware 

b. Automatic Divide 

c. 500/min Card Reader 

d. 250/min Card Punch . 

e. Indirect Addressing 

f. The 3 additional instructions 

Move Flag 

Transfer Numerical Strip 
Transfer Numerical Fill 

g. A Model 565 Cal Comp Plotter 

h. 2 - 1311 Disk Drives 

i. 1 - IBM IO50 Remote Console ^ 

used to time share a 709^4- • ^ 

These facilities are never used for production at 
least not in the context of the general meaning of the word. 

Rather, they are used to implement computer-aided 
teaching to show students how engineers analyse and solve 
complex problems. Two suspended TV screens enable, even 
those in the back row, to see everything that takes place 
at either of the 2 Consoles, the plotter or the typewriter. 
Research has become such an integral and essential part of 
the advancement of the engineering educator and of the 
graduate education that between classes the room is used 
as a Research Laboratory. Thus the computer is used to 
aid in the study of the fundamental principles of engi- 
neering disciplines and the methodology of civil engineer- 
ing practice and as an aid to research so that nearly all 
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the available time is used for the compilation of pro- 
grams rather than production. 

The Civil Engineering Department has offered to all 
students for a number of years now a course entitled 
"Computer Approaches to Engineering Problems." The number 
of students electing to take this course has been steadily 
increasing. This year the number of students selecting 
this course reached such proportions tiiat, because of the 
machine time available, only 1/2 of those enrolling were 
accommodated. The interest in this course is mainly 
attributable to the turn-around time which is measured in 
minutes rather than days and because of the hands-on- 
experience- The room when used as a Laboratory is oper- 
ated on an open-shop basis. Time is available to students 
7 days a week from 1 P.M. to midnight on a 1st come, 1st 
served basis. The time from 8 A.M. to 1 P.M. is reserved 
for both academic and sponsored research. Students and 
research personnel who require large blocks of time are 
permitted to sign up in advance for the hours from raid- 
night to 8 A.M. 

The course is set up so that the 1st two lectures 
and a lab session provide students with sufficient infor- 
mation to write simple FORTRAN Programs. Thus, after the 
first week of the course students begin to utilize the 
computer. 

The 1st lab session consists of an introduction to 
the 1620, its peripheral equipment and the operating pro- 
cedure to be used for the compilation and execution of 
programs. The lectures include a brief explanation of 
computers in general and some of the basic FORTRAN. 

To meet these requirements and to accommodate the 
ever increasing number of students simply meant that the 
throughput be maximized. 
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take maximum advantage of both the hard- and software. To 
implement this a supervisor for the Monitor 1 System was 
written, debugged, tested and put into operation. 

The Supervisor as written performs two tasks in 
addition to maximizing the throughput. 

1. Maintains a log of all users. 

2. Supervises the input. 

A flow diagram which is self-explanatory is shown 
in Pig. 1. 

A listing of the program is shown in Pig. 3JU 

The supervisor at the present time includes the 
following systems: 



1. 


LOG 


2. 


EDIT 


3« 


SSGO 


k* 


ssgo/edit 


5. 


ssgo/edit/go 


6. 


MONITOR 1 


7- 


SUBSET 


8. 


LOAD 


9. 


COGO 


10. 


CI/COGO 


11. 


PLOT 



All these systems cards are available at the Console 
as are end of job cards, cold start cards and clock cards. 
See Pig. 2. 

The order of cards for any job is as follows: 

1. User ID Card 

2. System Card 

3. Program Deck 

3i 



FLOW DIAGRAM FOR SUPERVISOR OF MONITOR 



Read a Card 



Yes 



No 



No 



Enter ID Information on Disk 
and Increment Sector Address 



Yes 



Type Message 
Log File will 
be Punched Out 










Transfer Log to Core 



Punch Log 




Place Initialized 
DCF on Disk 




I ncrement 
Address 



Type, Remove Log 
Cards , Push Start 



Load System 
Process Job 



Load Supervisor 
Return Control 
to Supervisor 



Yes 



J i if 



Pig. 1 



L T S T T N G 



COMMENT 
READ 1 



LOG F 



LOG P'JNCHOUT 



SYSTEM 



OF fE 


SL SU 


PFRVTSOR OF 


MONITOR . 


ADD • 




INSTRUCTION 


COMMENTS 


5 00 


37 


2 7 01 


50 


READ ID CARD 


1 2 


45 


5 3 6 


2 701 


CHECK FOR RECORD MARK IN CC 1 


24 


49 


5 


ooooo 


IF A RECORD MARK READ NEXT CARD 


? A 


1 4 


7 7 V 


J 4 


I S THERE AN * T N CC 1 


48 


47 


5 


12 


READ NEXT CARD IF NOT * 


A P 
o 


I. '+ 


P ? 7 1 R 


M Q 4 4 


CHFCK FOR ID rr 7 AND 8 


72 


47 


005 


012 


IF NOT ID READ NEXT CARD 


84 


39 


02701 


040 


PUNCH ID CARD 


96 


38 


v. 2 9 


7 2 


WRITE ID INFO ON DISK 


608 


11 


C 2 9 5 


001 


INCREMENT SECTOR ADD 


20 


14 


2 9 5 


540 


IS LOG TABLE FULL 


32 


46 


p p 7 ? A 


1 ^ P P 

vJ 1 J u u 


BRANCH IF HIGH ZERO IS ON 


44 


3 8 


w £ 7 1. H 


O 7 P 7 


WRITE UPDATED CONTROL FIELD ON DISK 


56 


37 


2 7 01 


5 


READ SYSTEM ID CARD 


A ft 


45 


A Q ? 


2 701 


CHECK FOR RECORD MARK IN CC 1 


P P 


Zl Q 
*+ ^ 




p o p p 






1 4 ' 


P ? 7 1 


J 4 


CHFCK FOR * IN CC 1 


704 


47 


5 


12 




7 1 6 


49 


98 





TO DECODE SYSTEM NAME 


r ? 8 


34 


ooooo 


010 2 


RETURN CARRIAGE 


40 


39 


02 5 01 


ooi oo 


TYPE LOG FILE WILL BE PUNCHED OUT 


52 


36 


29 2 8 


702 


TRANSFER LOG FILES TO CORE 


64 


26 


02817 


3 09 9 


3099 IS HIGH ORDER POS OF FIRST LOG ENTRY 


76 


45 


8 


02737 


CHECK FOR END OF ENTRIES 


88 


49 


8 4 8 


00 




8 


39 


2 719 


400 


PUNCH ID CARD 


1 2 


11 


. 77 5 


J 


INCREMENT ADDRESS TO GET FOLLOWING LOGS 


24 


14 


077 5 


K0099 


LAST RECORD 


36 


47 


7 6 4 


01300 




48 


1 5 


o^Oi o 


00PP7 


S FT A RECORD MARK IN LOC 3^1^ 


60 


1 1 


8 5 4 


J o 


INCREMENT TO GET ADD. OF NEXT ID 


7 2 


14 


00854 


J9919 


IS THIS . LAST ID ENTRY 


84 


47 


00848 


01200 




96 


38 


29 2 8 


00 702 


MOVE ID LOG TO CORE 


908 


16 


02905 


5 2 2 9 




20 


38 


02914 


00702 


PLACE INITALIZED FIELD ON DISK 


32 


34 


ooooo 


0010 2. 




44 


39 


02561 


010 


TYPE REMOVE LOG CARDS* PUSH START 


56 


49 


0167 2 


ooooo 




968 


48 


ooooo 


ooooo 




80 


14 


02715 


0N347 


LG 


92 


47 


01016 


01200 




10 4 


49 


n P 7 ? 8 





CALL LOG PUNCH OUT 


1 6 


14 


A O 7 1 C 


J IN 4 :> o 


MONITOR 1 


2 8 


46 


01314 


01200 




40 


14 


02715 


00264 


SUBSET 


52 


46 


01720 


01200 




A A 


1 4 


027 15 


00262 


SSGO 

O vj V> 


76 


46 


01382 


01200 




88 


14 


02715 


0M544 


EDIT 


110 


46 


01200 


0120 




12 


14 


^2715 


M 3 7 1 


Cl/COGO 3b() 


24 


46 


014 5 


01200 


36 


14 


02715 


0M356 


(TOGO ' 


48 


46 


015 2 2 


01200 





(a 



60 
72 

84 
1200 

12 

2 

66 
1314 
26 
34 

CALL SSGO 

1382 
94 
1402 

CALL Cl/COGO 

145^ 
62 
70 

CALL TOGO 

1522 
1534 





1542 




1 C Art 

1 d9 




1 A "2 A 




1 o f 2 




.1 D o M- 




o c 

7 O 




1 70o 


CAM 


CI IRCFT 




1720 




1732 




1744 




56 




68 




80 




92 




1804 




16 




28 




40 




52 




1868 




1880 




1888 




1900 




1912 




1920 




1932 




1940 




1996 




02501 




-'2561 


A 


2700 


LI 


290n 


L? 


2914 


L3 


02928 



46 01868 01200 

49 0188 8 00000 
31 50000 01220 
49 50000 

34500320 7 'J i. b 1 3 03 2007 02 495 46 1 06 00 1 9900 1 00 

345007800 7013650078007 02 4901208010620 012020 0007 
3100000 01^34 

49 000 00 

3400- 3200 70 13600 03 2007024902402 5 11963611 300 102Z 

31 50 000 01402 
49 50000 1 

34500320070 1365 03 2007 0249400080 105 86 3050*0 00002 

31 nnnoo 01470 
49 00000 

34000 3 200 701 360 QC3 2007 249075000 109 000 J9900 1007.00000 

31 00000 01542 
49 HOCOO 

340 010800 701360010 8007 02 340 0094007013600094 0070 2 
340008000 70 13600 08000 7 0249075000107 80 019900100 

10 8 2 00 20 00 010 8 2 02 040 00020 



16 


8 5 4 


3 019 


16 


0775 


03099 


41 


00000 


000 


49 


00500 


0000 


31 


15000 


01744 


49 


15000 


00000 


31 


00031 


01356 


34 


C0032 


000701 


3 6 


0003? 


007 n 2 


31 


13000 


15108 


25 


13001 


15123 


25 


13003 


15123 


15 


13021 


00000 


16 


04105 


000M9 


49 


02402 


00000 



00O0M6N6N9O7P5OZ ZZ FORX 5 000 

36 00000 00500 ' 
49 00000 

14 02715 0N75 3 PLOT - COTSO PLOT 

46 01920 01200 
49 00500 
31 00000 01940 
49 00000 

3400070007013 600 070007 02 34000 56 007013 600056 0070 249075 000 
1 08600 200 20000 1 08400 199 00100 Z 

37 02501 00100 LOG FILE WILL BE PUNCHED OUT.Z 
37 02561 00100 RFMOVF LOG CARDS* PUSH START Z 

00000000000000000000 

1 05229 001 02718 WHERE TO START NEXT LOG ENTRY 
1 05228 001 02900 UPDATED FIELD FOR ABOVE 
1 05229 170 03000 LOAD AND UNLOAD LOG FILE 
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***** 

* ipsa 

* EDIT ^ 

* TOM I TOR 1 

3400032007013600032007024900500010520002900100 SUPERMOMTOR COLD START 



OOW'O 1 'O'OOO »« k0O»i : 0s0 OOViaOx x«QmO 0n».MO o «*0Z20OZ"0 I ?0 O'O 9«00 BOO • 

1 2 ) 4 5 • 7 I t It 11 12 13 M UK 17 II tt 28 21 22 23 24 2S 21 27 23 2t 30 31 32 31 34 3111 37 31 3t4t 41 42 43 44 4S 4t 47 41 41 St II Mil HUM 57 M StM 11 (2 63 M 6SSI t7 SMS 71 71 72 73 74 7S 7t 7J 7INM 

u it n n it i 1 1 1 1 11 1 it ii i ii n i n i * 1 1 u ii 1 1 1 1 T n 11 it n t ii n 1 1 n h n i ii 7 1 1 ii ii ii tu 

222222:2.2222 222 2 22 2 22 2 22 22 22 22222"222* 2 22 22222*22222222222 2 2 222 2*222 22 2 2222222 
3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 J 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 J 
4. 44444444444444444444444444 4 * 44444444444444 4.4 44 r 4 44 » 4444444444* 4 44444444444444 

5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 S 5 5 5 5 5 5 5 5 " 5 5 5 5 5 " 5 5 5 5 5 5 5 5 5 3 5 5 S 5 5 5 r 5 5 5 r 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 b 5 5 S 5 5 
66668 6666 6S66 66 6666666 666666566666666S6 66666666666666' 666>666'666666666S66S6S6I 
777777777 7777777 7777 7 777 7777777 7 77777 777777 77777' 7 77777 777 7 77777777 77 77 77777 77 
88 8 88881 8 8188 888 88 88 88188888888 88 8888 888 8 3888 88888 88 88 8 888 88 8 888 8888818 8818 8 818 8 
«/9 9 9 9 9 9 9 9 9 9 9 ! 9 9 9 9 9 9 9 9 9 9 9 9 9 i: 9 9 9 9 9 9 9 9 9 9 9 9 9 9 m 9 9 9 9 9 9 9 9 9 9 9 ,. 9 9 9 ,i 9 9 9 9 9 9 9 9 9 9 9 ! 9 9 3 9 9 9 9 9 9 9 

1 2 3 4 S I 7 I S 10 II 12 U M « » 17 tt U20 2l222324 25aSZ7 2*29 3«3l 93 33 M 3f 3« J7 3* M 40 41 42 43 44 4S4« 47 <««• SO SI 5ZS3MSSSC57MMCOS1«2W«4l»t«C7MM1«nit»M79nn7t7aW 
MM M4I 



Pig. 2. SYSTEMS CARDS . 

* i'D~NEUMA'Ki EDWARD eT s~systems DEVELOPMENT ~ " 

- - - u L m U l. i. _ Li j u 

r : ' .rr> r p „ _ 

cooooooooooiooolo ooCoooooooooooooo;;ooi::ioo:ooo:ooooooo2ooooooooooooooooooooooqo 

1 2 3 4 3 17 1 t I1 11 12 13 H IS II 17 N It 20 21 2223 24 23 21 27 2J2tM 31 123314 3S It 17 3131 41 41 42 43 44 43 4147 4t 41 SO SI U 

1 1 1 1 1 1 1 1 1 1 11 1 C 1 11 1 11 U 1 1 11 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 11 1 1 1 1 1 1 1 1 1 1 1 1 1 11 1 1 1 1 1 1 1 1 1 1 11 1 1 1 1 
2222222222222222222222222222222222:22:2:222:22222222222222222222222.2222222222222 

3 333 333 3333333 3:33323333333333333333333:33333333 33333:333333333333333333333333 
[4 44444:4444:44444[;444:;4444444444444444444:44:444444u4444444444444444444 44444444 
5 5 5 5 5 S 5 55i:i5J: 5 5: 5 5 5 5 5 5 : 5 5 5 5 5 5 5 5 5 5 5 5 S 5 5 5 5 5 5 $: ;:55J 5 ::5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 S 
SSSSISIf (tt (ISS6iSIIIII6ISIS6SS6(6SSSSS 66 66 Sf6t6:S6 666666 6 66 666666666(66 6666 66 
7 77 77777771177777777 771777777777777777777 7777 777777:77777777 77 77777 7 7777777 77 777 
Zl t IIII8I8IIIII llllllllt IStlttllllll II8ll8lilllltllllllllllllllllllllllt8llll 
9 9 9 9 9 9 : 9 9 9 9 1 9 1 9 9 9 9 1 9 S 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 3 9 1 9 9 9 1 9 9 9 9 9 9 9 9 9 3 9 9 9 9 9 9 9 3 9 9 9 9 9 9 9 9 • 

12141171 tl0nnUMS»t7««»»S213«»S9ltailMlll3M»3IVl|»4««42«4««^ 
mm son 



Fig. 3- USES ID CARD 
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k' * Data Card (when required) 
5- End Job Card 

The FORMAT for the User ID card is as shown in Pig. 3. 

LOG 

The 1620 does not have a clock: so a system to keep 
track of the time was devised. To do this a Clock card con- 
taining the time and date are read in and entered into the log 
in the same manner as the ID card. The Format is identical to 
that of an ID card except the user's name is replaced by Power- 
On, Clock, or Power-Off and the time and date replace the 
use. See Fig. 1+. One clock card for each hour of the day is 
pre-punched and entered into the log, on the hour, while the 
machine is in use. This is accomplished by stacking them in 
the read hopper along with the jobs being processed. When the 
log is punched and listed it contains the time power was 
turned on for the particular day and the names and application 
of all users to the next hour. The same information with 
hourly time is repeated until the power is turned off. As was 
stated previously, the log table is automatically punched out 
when full. A Log card provides the capability to punch out 
the log whenever it is desired. 

The results of this log were amazing; on two differ- 
ent days 3kk starts were logged. One such log is shown in 
Fig. 5. 

EDIT 

Edit is a modified version of IBM»s FORTRAN with 
FORMAT PRECOMPILER. It will detect many of the common ' 
errors, particularly language, key punching and specifica- 
tion mistakes but it is not exhaustive. 

Its suggested use is in conjunction with the SSGO 
system which does not require Format. But it may be used 
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x 
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» clock £$4r 

ID CLOCK -Wffl-' Hpi ? SS IS 

clock ■■Bfl-Jpf' : ftf/f&I 

I D CLOCK . THU:0CTri;i964 9.00 AM 
ID POWER-ON THU.OCT. i»1964 



o o or o ? « oooooooo i * 

1 J 3 4 5 8 7 I 8 10 II 12 13 14 15 It 1? II 11 20 21 22 23 24 25 28 27 »29 M 31 32 33 34 3538 37 38 30 40 41 42 4344 4S48 47 «4»S0 51 5253 M SS 58 57 $1 5180 81 82 S3 84 IS 18 87 II 81 70 n 7113 74 75 78 77 71 71 10 | Mlki^ 

1 1 1 1 1 1 1 1 1 1 1 1 1 1 m 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 i : 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 ii i i 

222222222222 22222222222222 22222222222 22222222 2 2222222222222222222222222222222222 

3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 ; : 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 J 
: 444444, 4 4 4444444444444 44444 444 4444 4444 444 4444444444444444 4 444 444444 44 4 4 444 4 44 

5 5 5 5 5 5 5 5 5 5 5 5.555.555555555555555555555555555555555555555555555555555555555555555 . ^ 

6 G 6 6 6 6 6 6 6 6 1.. 6 6 6 6 6 6 6 6 6 6 6 6 6 6 S 6 £ 6 6 6 6 6 8 6 6 6 B 6 6 6 6 6 6 6 B 6 6 6 6 6 6 6 6 6 6 6 8 S 6 6 6 6 5 8 8 6 6 B 6 6 6 6 & 8 8 j 
7 77777777D 7777 777777777 7777777777777 77777 7777 777777777777777777 7 77777 777777 77777 j 
Z 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 3 8 8 8 8 8 8 8 8 8 8 8 8 8 8 ; 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 J 8 8 «! 8 8 8 8 8 8 j 
9 9 9 9 9 9« 9 9 9 9 9 9C 9 9 9 9 9 9 9 9 9 9 9 99 9 9 9 9 9 9 9 9 9 9 9 9 9 9*9 9 999999 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 99 9 9 9 9 9 j 

1 2 1 4 S 8 7 1 9 10 II 12 13 14 1518 17 II II 20 21 22 23 24 25 21 2) 28 25 30 31 32 33 34 35 38 37 31 39 40 41 42 43 44 45 48 47 4141 50 51 5253 54 55 56 57 5* St 80 61 82 13 (4 85)481 81 St 70 71 72 73 74 75 78 77 71 7» 10 > 

_ v -_ __ n ?l*. ?l. „ IIWWIIIlllli II -— r m^Krf p mr-rr - ' 



Pig. lv« CLOCK CARDS 
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DEPARTMENT OF CIVIL ENGINEERING 
COMPUTER LABORATORY 
RUN LOG 



HOURLY ENTRIES FOR THU.MAR .26 » 1964 



TIME PROJ. TOTAL ENTRIES 



1.15 



12.01 AM - 


1.00 AM 





15 


1.00 AM - 


2.00 AM 





14 


2.00 AM - 


3.00 AM 





15 


3.00 AM - 


4.00 AM 





17 


4.00 AM - 


5.30 AM 





21 


8*30 AM - 


10.00 AM 


2 


16 


10.00 AM - 


1.00 PM 





12 


1.00 PM - 


2*00 PM 


6 


9 


8.30 AM - 


10.00 AM 


2 


18 


2.00 PM - 


3.00 PM 


20 


21 


3.00 PM - 


4.00 PM 


33 


34 


4.00 PM - 


5.00 PM 


28 


32 


5.00 PM - 


6.00 PM 


32 


35 


6.00 PM - 


7.00 PM 


12 


15 


7.00 PM - 


8.00 PM 


30 


30 


8.00 PM - 


9.00 PM 


14 


16 


9.00 PM - 


10.00 PM 


22 


25 


10.00 PM - 


12.45 AM 


4 


15 



TOTAL NUMBER OF ENTRIES 203 
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DEPARTMENT OF CIVIL ENGINEERING 
COMPUTER LABORATORY 
RUN LOG 



POWER-ON 




THU.MAR.26* 


1964 


SUHRBIERt JOHN 


1 


c 

o 


QZl07 




GARDNER »D« 




c 

o 


1 i7'l C 
la 1 J" 




GARDNER »D# 




c 


1 O ( 3 r 




GARDNERS. 




c 
o 


lo f Jr 




GARDNER ♦D« 




S 


1673F 




GARDNER »D« 




S 


1673F 




GARDNER *D« 




S 


1673F 




uAKDNER»D« 




S 


1673F 




GARDNER »D« 




S 


1673F 




GARDNER »D» 




S 


1673F 




GARDNER »D# 




S 


1673F 




GARDNER »D» 




S 


1673F 




GARDNER »D« 




S 


1673F 




GARDNER > D« 




S 


1673F 




GARDNERS. 




s 


1673F 




clock 




I riu 


MAD ~) f 

• MAK • co f 


1964 


GARDNER »D« 




c 

o 


lo fir 




GARDNER »D# 




c 

o 


1 6 7 3 r 




SUHRB I ER ♦ JOHN 


1 


s 


9407 




GARDNERS. 




5 


1673F 




GARDNER »D« 




s 


1673F 




GARDNERS, 




s 


1673F 








s 


1673F 




SUHRB I ER ♦ JOHN 


1 


s 


9407 




1F"^C T MAM 
JtOOl MAIN 


1 


f 

o 


94 3U 




JESSIMAN 


1 


o 


y*f 3u 




GARDNER »D« 




c 
5 


1 C "7 1 c 

16 73F 




SUHRB I ER # JOHN 


1 


5 


9407 




GARDNERS. 




c 
o 


1673r 




SUHRB I ER ♦ JOHN 


1 


5 


9407 




CLOCK 




T 1 1 1 1 

1 nU 


MAD O C 

• MAR • Z o * 


1964 


SUHRB I ER » JOHN 


1 


5 


9407 




GARDNERS. 




s 


1673F 




GARDNER tD» 




S 


1673F 




GARDNER »D« 




S 


1673F 




GARDNER »D« 




S 


1673F 




GARDNER »D» 




S 


1673F 




GARDNERS. 




S 


1673F 




GARDNER »D# 




s 


1673F 








S 


1673F 




GARDNER *D« 




s 


1673F 




GARDNER »D« 




S 


1673F 




GARDNER »D# 




s 


1673F 




GARDNERS. 




s 


1673F 




GARDNER »D« 




s 


1673F 




GARDNER »D« 




s 


1673F 




MURRAY»W.E» 




1 


s 




CLOCK 




THU.MAR «26 ♦ 


1964 
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1*6.) 



SUHRBIER. JOHN 


1 


s 


9407 


GARDNERS. 




s 


1673F 


GARDNER .D. 




s 


1673F 


GARDNER »D. 




s 


1673F 


GARDNER .D. 




s 


1673F 


GARDNERS. 




s 


1673F 


GARDNERS, 




s 


1673F 


MURRAY .W.E • 




1 


S 


GARDNER »D. 




s 


1673F 


MURRAY .W. E. 




1 


S 


GARDNER .D. 




s 


1673F 


MURRAY.W.E. 




1 


s 


GARDNER. D. 




s 


1673F 


GARDNER.D. 




s 


1673F 


GARDNER .D. 




s 


1673F 


GARDNER »D. 




s 


1673F 


GARDNER »D. 




s 


1673 F 


CLOCK 




THU.MAR.26 



GARDNERS. 


S 


1673F 


GARDNER .D. 


S 


1673F 


GARDNER #D» 


S 


1673F 


GARDNER .D. 


S 


1673F 


GARDNER .D. 


s 


1673F 


GARDNERS. 


s 


1673F 


GARDNER »D. 


s 


1673F 


GARDNER.D. 


s 


1673F 


GARDNER .D. 


s 


1673F 


GARDNER.D. 


s 


1673F 


GARDNER.D. 


s 


1673F 


GARDNER »D. 


s 


1673F 


MURRAY .W.E • 


1 


S 


GARDNERS. 


s 


1673F 


GARDNER .D. 


s 


1673 F 


GARDNER.D. 


s 


1673F 


GARDNER .D. 


s 


1673F 


GARDNER. D. 


s 


1673F 


GARDNER .D. 


s 


1673F 


GARDNER .D. 


s 


1673F 


GARDNER. D. 


s 


1673F 


GARDNER. D # 


s 


1673F 


POWER-OFF 


THU 


.MAR.26 



POWER-ON THU. MAR. 26*1964 8.30 AM 



KIM, JIN 


HWAN 




G 


DSR 


8790 


KIM.JIN 


HWAN 




G 


DSR 


8790 


KIM.JIN 


HWAN 




G 


DSR 


8790 


NEWMAN. 


EDWARD 


E. 


S 






JOHNSON 


.WILLIAM 


F 1 


S 


DSR 


NO 9107 


JOHNSON 


♦WILLIAM 


F 1 


S 


DSR 


NO 9107 


JOHNSON 


♦WILLIAM 


F 1 


S 


DSR 


NO 9107 


JOHNSON 


♦WILLIAM 


F 1 


S 


DSR 


NO 9107 


JOHNSON 


♦WILLIAM 


F 1 


S 


DSR 


NO 9107 


JOHNSON 


♦WILLIAM 


F 1 


S 


DSR 


NO 9107 



W3) 



JOHNSON 


•WTLLTAM 


F 1 


c 

o 


r»SR 


NO 


1 07 

7 X. W f 


JOHNSON 


• WT LLT AM 


F 1 


c 

o 




NO 


01 07 

7 1 U f 


JOHNSON 


• WI LLI AM 


F X 


c 
o 


DSR 


NO 


1 01 

7 1U 1 


JOHNSON 


• WT LLT AM 




c 

o 




NO 


1 07 


JOHNSON 


•WILLIAM 


F 1 


s 


DSR 


NO 


9107 


JOHNSON 


,WILLIAM 


F 1 


s 


DSR 


NO 


9107 


HODNICK 


♦ J. M. 




G 


1.15 






LEARY D 


.F. 




1 


1.15 







CLOCK 



THU.MAR.26»1964 10.00 AM 



J0HNS0N»WILLIAM F 
JOHNSON. WILLIAM F 
JOHNS0N»WILLIAM F 
J0HNS0N*WILLIAM F 
JOHNSON »WI LLI AM F 
JOHNSON.WILLIAM F 
JOHNSON *WI LLI AM F 
JOHNSON»WILLIAM F 
J0HNS0N*WILLIAM F 
FOSTER A. T. 
R0ESSET J.M. 
ROESSET J.M, 

CLOCK 



S DSR NO 9107 

S DSR NO 9107 

S DSR NO 9107 

S DSR NO 9107 

S DSR NO 9107 

S DSR NO 9107 

S DSR NO 9107 

S DSR NO 9107 

S DSR NO 9107 

GRA SYSTEMS DEVELOP. 

GTA SPEC. PROJECT 

GTA SPEC. PROJECT 

THU.MAR.26»1964 1.00 PM 



NEWMAN* EDWARD E. 




S 




NEWMAN * EDWARD E. 




S 




NEWMAN * EDWARD E. 




S 




BAYNE A R 


10 


3 


1.15 


SEX AUER *W.L • 






1.15 


GOLDMAN »F.W. 






1.15 


LAZAR* JAY L. 


1 




1.15 


TAYLOR* WILLIAM A. 


I 




1.15 


SHWIMER » JOEL 






1.15 



CLOCK 

GIBSON* C T 
TEL SON »MI CHAEL 
TEL SON » MI CHAEL 
TELSON • MICHAEL 
TEL SON »MI CHAEL 
TELSON »M I CHAEL 
TELSON »MICHAEL 
SEXAUER»W.L. 
SEXAUER»W.L. 
SEXAUERtW.L. 
HUIE»J.L. 
ALAM 

K I NGSNORTH ♦ R C 
LEARY D F 
LFARY *D*F 
LEARY D F 
BATOR RICHARD 
TAYLOR* WILLIAM 
MOORER* JAMES 
SEXAUER»W.L. 
LAZAR* JAY L. 



18 
I 



HU. MAR. 26*1964 2.00 PM 



BM SYSTEMS ENGINEER 

.15 

.15 

.15 

.15 

.15 

.15 

.15 

.15 

.15 

.15 

.15 

.15 

.15 

.15 

.15 

.15 

.15 

.15 

.15 

.15 
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CLOCK 



THU.MAR.26»1964 3,00 PM 



FA I RBURN * DON 
MUMFORD* J. 
TELSON*M. 
MUMFORD* J. 
ALAM 

tflson »m # 
bator richard 
k i ngsnorth ♦ r c 
golka * john j. 

LEARY D F 
LEET KENNETH 
TAYLOR* WILLIAM 
WANEK * GLENN 
PROKOPY* JOHN C 
WANEK * GLENN 
NAINIS 

LAZAR* JAY L. 
MOORER* JAMES A, 
MOORER » JAMES A. 
MOORER » JAMES A, 
MOORER » JAMES A. 
K I NGSNORTH ♦ R C 
LEARY D F 

BERNHARDT *L.J. 
BERNHARDT »L. J. 
GOLKA* JOHN J. 
BATOR RICHARD 
MOORER* JAMES A. 
MOORER* JAMES A. 
MOORER* JAMES A. 
MOORER* JAMES A. 
PROSEK* J, R. 
SNYDER* M. B. 
LAZAR* JAY L. 



1 


G 


1 • 09 






1.15 






1.15 






1*15 


1 




1*15 






1.15 


18 




1*15 






1 • 15 






1*15 






1 • 15 


1 




1*15 


I 




1*15 


•I r 


Is/ : 


T • 1 "5 

X: •■' A'-' 


2 




1 • 15 


I 




1 • 15 


I 




1*15 


1 




. T * 1 » 15 




I 


1.15 






1.15 




I 


1. 15 




J 


1 • 15 






1 • 15 






1 . 1 5 






IV 15 






1 • 1:5 






1* 15 


18 




1 .15 






1 . 15 






1.15 






1.15 






1.15 


1 


3 


1.15 




4 


1.15 


1 


2 


1.15 



CLOCK 



THU. MAR. 26*1964 4.00 PM 



KAVALL I EROS ANTONY 


1 


G 


1.27 


KAVALL IEROS ANTONY 


1 


G 


1*27 


NEWMAN* EDWARD E» 




S 




FA I RBURN DON 


1 


G 


1.27 


TENNI SON * THOMAS J. 




1 


1*25 


SIKES»P.G. 


I 


1 


1.15 


NAINIS 


I 


1 


1.15 


ERNST* D. 


21 


3 


1.15 


DEDRICK D F 


16 


2 


1.15 


CHAPMAN * D G 




1 


1*15 


mattes *d. a. 




1 


1*15 


HUIE»J.L. 




1 


1.15 


K I TTREDGE 


18 


2 


1.15 


TENNISON* THOMAS ; J.. 






■ 1. 15 


JOSEPH*GUNTER 




G 


1.15 


LEARY D F 




1 


1.15 


Phillips, c.r. 


VI 


4 


1.15 


WANEK* GLENN 


I 


1 


1.15 


K I NGSNORTH* R C 




1 


1.15 
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KUBO* A, S. 


IA 


G 


1.15 


SEXAUER.W.L. 




1 


1.15 


SEXAUER*W.L. 




1 


1.15 


SEXAUER»W.L. 




1 


1.15 


SEX AUER »W«L • 




1 


1.15 


SEXAUER*W.L. 




1 


1.15 


SEXAUER»W#L. 




1 


1.15 


ALAM 


1 


G 


1.15 


MABRY R. E. 


I 


G 


1.15 


PHILLIPS* OR. 


VI 


4 


1.15 


DEDRICK D F 


16 


2 


1.15 


BERNHARDT *L • J. 




1 


1.15 


BERNHARDT *L. J. 




1 


1.15 



CLOCK 
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NFWMAM* FOWAPH F. 




o 




NFWMAN* EDWARD F. 




c 

o 




COOPFPRFRG 




7 


OPFP A 


NEWMAN « EDWARD F« 




c 

w 




SFXAUFR • w« L • 




1 


1.15 

■i .. + -' 


MATTF^«D*A* 




X 


X . X, J 


JOSEPH »GUNTER 




G 


1.15 

X • X -r 


WANEK ♦ GLENN 


I 


1 


1.15 


SHWIMER» JOEL 




1 


1 • 1 5 


GOLDMAN«F«W« 




1 


1*15 

J. + X -* 


SEXAUER t W« L • 




1 


1*15 

. X 9 X -*s 


LEET KENNETH 


1 


G 


1.15 

X • X ■ *J 


HUI E ♦ J.L« 




1 

X 


1.15 

X # x -/ 


SEXAUER»W«L« 




1 

X 


1.15 

X # X ~* 


SEXAUER*W,L. 




1 


1,15 


BERNHARDT *L. J. 




1 


1.15 


JOSEPHtGUNTER 




G 


1.15 


SEXAUER*W.L. 




1 


1.15 


DEDRICK D F 


16 


2 


1.15 


DEDRICK D F 


16 


2 


1.15 


GOLDMAN»F.W. 




1 


1.15 


MATTES *D. A. 




1 


1 • 15 


WANEK* GLENN 


I 


1 


1.15 


BERNHARDT »L. J. 




1 


1.15 


JOSEPH »GUNTER 




G 


1.15 


JOSEPHtGUNTER 




G 


1.15 


JOSEPH* GUN TER 




G 


■1.15 


GOLDMAN *F.W. 




1 


1.15 


CHAPMAN* D G 




1 


1.15 


GRAASS J H 


14 


4 


1.15 


BERNHARDT *L .J. 




1 


1.15 


CHAPMAN » D G 




1 


1.15 


BERNHARDT *L. J. 




1 


1.15 


CHAPMAN* D G 




1 


1.15 


CHAPMAN* D G 




1 


1.15 


CLOCK 




THU. 


MAR. 26 


NEWMAN »E. 




S 




ROBINSON* J.V. 




... S 


9407 


NEWMAN *E. 




s 




BERNHARDT *L « J. 




1 


1.15 


BERNHARDT *L. J. 




1 


1.15 
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chapman* d g 
chapman* d g 
chapman* d g 

LEARY D F 
LEARY D F 
CHAPMAN* D G 
CHAPMAN* D G. 
CHAPMAN* D G 
CHAPMAN • D G 
LEARY D F 

CLOCK 

ENGER *TOM 
ENGER »TOM 
ENGER *TOM 
LEARY D F 
LEARY F 
CHAPMAN* D G 
CHAPMAN* D G 
CHAPMAN* D G 
LEARY D F 
LEARY F 
MOORER* JAMES A* 
MOORER* JAMES A. 
MOORER* JAMES A, 
MOORER* JAMES A. 
LEARY D F 
BERNHARDT *L« J. 
LEARY F 
CHAPMAN* D G 
LEARY F 
CHAPMAN* D G 
GOLKA* J. J. 
LEARY F 
WILLIAMS *RE 
WILLI AMS»RE 
BERNHARDT »L. J. 
CHAPMAN* D G 
DESMOND • BAR BAR A A. 
DESMOND » BAR BAR A A. 
HAUSSLING H J 
MOORER* JAMES 

CLOCK 

SKODON* JOHN G. 
SKODON* JOHN G. 
ENGER* TOM 
ENGER *TOM 
ENGER *TOM 
DESMOND* BAR BAR A A. 
CHAPMAN • D G 
DESMOND* BAR BAR A A. 
BERNHARDT »L. J. 
GOLKA* J, J. 
DESMOND* BAR BAR A A. 
WILLIAMS*RE 
GOLKA* J# J. 



1.15 
1.15 
1*15 
1.15 
1.15 
1.15 
1.15 
1.15 
1.15 
1.15 

HU.MAR.26»1964 7.00 PM 

1.15 
1.15 
1.15 
1.15 
1.15 
1.15 
1.15 
1.15 
1.15 
1.15 
1.15 
1.15 
1.15 
1.15 
1.15 
1.15 
1.15 
1.15 
1.15 
1.15 
1.15 
1.15 
1.15 
1.15 
1.15 
1.15 
1.15 
1.15 
1.15 
1.15 



THU.MAR*26*1964 8.00 PM 



5011 
5011 
1.15 
1.15 
1.15 
1.15 
1.15 
1.15 
1.15 
1.15 
1.15 
1.15 
1.15 
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CHAPMAN* D G 






1.15 


BERNHARDT *L. J. 




\ 


1.15 


HAUSSLING H J 


I 


1 


1.15 


clock 




THU. 


MAR * 26 

i i r\ lev 


ENGER *TOM 






1.15 
X • X X 


ENGER • TOM 






1 « 1 5 
X . X -7 


SKODON* JOHN G. 


T 




50 1 1 


SKODON* JOHN G. 


T 

1 




S011 


ENGER *TOM 






1.15 

X . A X 


ENGER >TOM 






1.15 
X • X J 


ENGER » TOM 






X • X J 


ENGER *TOM 




- 


1 . 1 5 


ENGER*TOM 






1*15 

X . A J 


CHAMPY ♦ i.A. 


T 

1 




1 . 09 
x • v " 


HAUSSLING H J 


T 

1 




1.15 

X • X J 


GOLKA* J. J. 






1*15 
x • x j 


HAUSSLING H J 


I 




1-15 

X • X .J 


CHAPMAN » D G 






1 • 15 


GOLKA ♦ J. J. 






1 • 15- 


HAUSSLING H J 


I 




1 • 15 


CHAPMAN* G 






1.15 


BATOR RICHARD 


18 




1*15 


BATOR RICHARD 


18 




1*15 


GOLKA * J. J. 




1 


1.15 


HAUSSLING H J 


I 




1.15 


BATOR RICHARD 


18 




1.15 


GOLKA* J. J. 






1.15 


GOLKA* J- 1. 






1.15 


HAUSSLING H J 


T 

1 




1.15 


CLOCK 




THU.MAR.26 


ENGER ♦ TOM 






1.15 


GARDNER*D. 




S 


1673F 


SKODON » JOHN G. 


J 


S 


5011 


SKODON» JOHN G. 


I 


S 


5011 


SKODON* JOHN G. 


I 


S 


5011 


SKODON* JOHN G. 

rv XX Lx XX | ^ F v vV 1 |1 1 V 


T 

X 


s 


5011 


HARMAN ♦ JACK 


X 

x 


s 


9407 


HARMAN * JACK 


1 


s 


9407 


HARMAN * JACK 


i 

x 


s 


9407 


HARMAN * JACK 


1 


s 


9407 


HARMAN * JACK 


1 


s 


9407 


HARMAN ♦ JACK 


1 


s 


9407 


LEARY D F 




1 


1.15 


LEARY D F 




1 


1.15 


LEARY D F 




1 


1.15 



POWER-OFF 



FRI.MAR.27»1964 12.45 AM 



NUMBER OF ENTRIES 344 
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to check source programs in FORTRAN II-D. Since SSGO does 
not require Format statements, EDIT was modified to by-pass 
this type of statement • 

Each statement in which an error is detected is 
punched out together with a diagnostic report. It is a 
useful debugging technique as well as an aid in program 
development. It is most useful to novice programmers. 
If no errors are detected the message "NO ERRORS DETECTED" 
is typed out. Shown in Fig. 6 is a list of the error 
messages. 

SSGO 

SSGO is a modified version of a LOAD and GO FORTRAN 
which was based upon IBM's first 1620 CARD FORTRAN WITHOUT 
FORMAT. This is a one -pass operation with 3 options. Any, 
all or none of these options may be exercised by inserting, 
immediately preceding the Data card, the following: 

1. # Trace M to N 

M is the number of the source statement where 
tracing is to begin and N is the number of the 
source statement where tracing is to cease. 

2. # Map. 

Causes a storage map of the symbol table together 
with the unused memory to be punched out. 

3. -* Cards 

The original version of this FORTRAN was modified 
so that the compiler was located in the 2nd Module while the 
compiled object program was stored in the first 20K of core, 
thus conserving both time and cards. The Cards card was, 
therefore, used to obtain a punched object deck. This of 
course finds little use today since it. is more expedient to 
load on disk any program that might be needed later. 
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ERROR MESSAGES 1 H EDIT 



UNDEFINED STATEMENT NUMBERS 
UNREFERENCED STATEMENT NUMBERS 
UNACCEPTABLE FORM TO LEFT OF = SIGN 
MULTIPLE = SIGNS . 

SUCCFSIVE OPERATION SYMBOLS OR OPERATORS 
MISSING OPERATION SYMBOL OR OPERAND 

RIGHT PARENTHESIS ENCOUNTERED BEFORE LEFT PARENTHESIS 

MISSING RIGHT PARENTHESIS 

MIXED MODE FXPRFSSION 

NO VARIABLE TO LEFT OF = STGN 

EXPONENTIATION OF A FIXED POINT VARIABLE OR CONSTANT 

VARIABLE USED HAS NOT BEEN DEFINED 

SUBSCRIPTED VARIABLE HAS NOT APPEARED IN A DIMENSION STATEMENT 
ERROR IN SUBSCRIPT 

NOT ALL OF THE INDICES ARE LEGAL 
SECOND INDEX IS LFSS THAN FIRST 
THIRD INDEX IS ILLEGAL 

STATEMENT NUMBER NOT ACCEPTABLE OR IS MISSING 

DO STATEMENT IS INCOMPLETE 

DO LOOPS INCORRECTLY NESTED 

DC LOOP TERMINATES ON TRANSFER STATEMENT 

DECIMAL POINT OMITTED FROM FLOATING POINT CONSTANT 

DECIMAL EXPONENT FOLLOWING AN E IS INCORRECTLY EXPRESSED 

THE EXPONENT FOLLOWING AN E HAS BEEN OMITTED 

FLOATING POINT NUMBER FOLLOWED BY CHARACTER NOT AN E 

STATEMENT NUMBER GREATER THAN 9999 

STATEMENT NUMBER PREVIOUSLY DEFINED 

UNNUMBERED CONTINUE 

STATF^ENT CANNOT BE REACHED BY PROGRAM 
ERROR IN STATEMENT NUMBFR(S) 
MISSING COMMA AFTER RIGHT PARENTHESIS 
INDEX IS ILLEGAL OR MISSING 

NON-NUMERIC CHARACTER FOLLOWS RIGHT PARENTHESIS 
LEFT PARENTHESIS DOES NOT FOLLOW WORD IF 
NO EXPRESSION WITHIN PARENTHESIS 

MISSPELLED OR UNACCEPTABLE NON AR I THME T I C STATEMENT 
STATEMENT CONTAINS UNACCEPTABLE CHARACTER 
STATEMENT CONTAINS DECIMAL POINT NOT IN A CONSTANT 
DIMENSION STATEMENT IS IN INCORRECT FORM 
UNNUMBERED FORMAT' STATEMENT 
INCOMPLETE FORMAT STATEMENT 

VARIABLE IN DIMENSION STATEMENT PREVIOUSLY DEFINED 

FORMAT STATEMENT NUMBER MISSING OR INCORRECTLY STATED 

FIRST OR LAST CHARACTER IN LIST IS NOT ACCEPTABLE 

THREE DIMENSIONS HAVE BEEN SPECIFIED* OR IN INCORRECT FORM 

COMMA MISSING* OR LIST IS MISSING OR INVALID 

SYMBOL TABLE FULL 

FIXED POINT CONSTANT GREATER THAN 9999 
FLOATING POINT CONSTANT OUT OF RANGE 
n/AR I ABLE NAME LONGER THAN 5 CHARACTERS 
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3. 5 SSGO DEBUGGING AIDS 



Trace 

SSGO includes a built-in trace which is a very powerful debugging aid. 
Tracing is specified by the insertion of a control card after the END state- 
ment of the following form: 

* TRACE FROM n TO m 

where n is the statement number where tracing is to begin and m is the 
statement number where tracing is to cease. 

The portion of the program which lies logically between the two 
limiting statement numbers will be traced each time it is executed. If the 
trace is selected, object program execution proceeds in normal mode at 
full speed until control reaches the statement with statement number "n". 
From this point until control reaches the statement with statement number 
"m", in addition to the normal programmed output the following output 
is punched: 

1. For each arithmetic statement, the variable name to the left of the 
== sign followed by the current numeric value of the right hand side. 
Examples: 

A = -.13570000 
STA = . 10600000E03 
JOB = 8431 

2. For each transfer statement, the type of transfer and the statement 
number branched to. Example: 

COMPUTED GO TO 

TRANSFER TO STATEMENT NO. 0006 

3. Reports of progress through DO loops are punched at the end of each 
loop. Example: 

0012TH TIME THROUGH DO 

The DO message assumes the index has an initial value of one and is 

2& 395 
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For compatibility a Call Exit command was added to 
this processor. Format statements may be included but they 
are ignored except the = character in an H field which 
will cause erroneous compilation. All Print statements 
have been modified to Punch to speed up the operation. 

ssgo/edit 

SSGO/EDIT is a further effort to conserve time and 
to simplify the. operation procedure. When this system is 
specified the source statements, as they are encountered, 
are temporarily stored on disk and processed with the EDIT 
program. If no errors are detected control is returned to 
SSGO which reads the source statements from disk instead 
of from cards and proceeds to compile and execute. If at 
the completion of the EDIT phase the program was found to 
contain errors, control is returned to the supervisor 
rather than SSGO. 

SSGO/EDIT/GO 

SSGO/EDIT/GO is a special version of SSGO/EDIT. 

At the end of the EDIT phase if no errors are de- 
tected the message "NO ERRORS DETECTED" is typed. . 
Processing and execution are attempted * just as with 
SSGO/EDIT. If at the completion of the EDIT phase errors 
were found the message "Turn SW-1 on to compile with 
errors" is typed. If SW-1 is left off and the start button 
on the console is depressed control is returned to the 
supervisor. If the option to continue is selected, an 
attempt is made to compile and execute. 

SUBSET 

SUBSET provides a direct call to FORTRAN II-D for a 
Load and Go operation and essentially replaces 2 MONITOR 
I CONTROL CARDS: 

3 9 



As source statements are read and translated by the processor, the 
object program is built up in lower core starting at location 07500. After 
processing of the END .statement and detection of the DATA card, control 
is sent to 07500 and the object program is executed. The object program 
occupies the first 20K module. The processor occupies the second 20K and 
the third 20K is then reserved for special subroutines. Programs of the 
order of 75 to 125 statements can be handled assuming no large arrays. For 
SSGO debugging of programs involving large arrays, the arrays should be 
temporarily dimensioned for small ranges to conserve space in the symbol 
table. 

Error Indicators - Translation Phase 



Du ring translation, if certain kinds of errors are detected in the source 
statements, error message of the following form is typed: 

ZG A = B*G+5 

ERROR NO. 5 

The statement containing the error followed by the error number is typed. 
The error numbers and their meaning are as follows: 



ERROR NO. 1 

ERROR NO. 2 

ERROR NO. 3 

ERROR NO. 4 

ERROR NO. 5 



Incorrectly formed statement 
Subscripted variable not dimensioned 
Constant out of range 
Symbol table full 
Mixed mode expression 




After an error is detected, processing continues so that additional er- 
rors may be "checked for. However, the resulting object program should 
not be executed as it will be incorrect. 
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PROCESSING SSGO RUNS 



Run Deck 

The make-up of a typical SSGO run deck is indicated in the following 
diagram. 



(end of job card) 



DATA DECK 



30 2.m 4.^7 



DATA 



TRACE 2 TO a (OPTIOKIAL*) 




The * DATA control card is necessary for execution even if no input data 
is required by the program since it is the signal to execute the program. 
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* MONITOR 
f f FORX 5 

SUBSET is provided to increase the compatibility 
between the 1620 and 7094 .. Students enrolled in the pre- 
viously mentioned course, "Computer Approaches to Engineer- 
ing Problems," offered by the Civil Engineering Department 
use not only the 1620 but the 7094 ! s. The 7094»s are 
accessible either by direct submission of card decks or 
through the 1050»s or teletype units as time shared remote 
consoles. 1620 SUBSET programs may be processed and exe- 
cuted on the 70914- by merely changing the ID and systems card 
to conform to that required at the 7094 Computation Center. 

To speed up compilation time with SUBSET or FORTRAN 
II-D all the Print statements in FORTRAN I I-D have been 
changed to Punch. The Type statements were left unchanged. 

Error messages are no longer typed out but instead 
are punched on cards; the incorrect statement on one card 
and the coded error message on the following card. During 
execution the floating point subroutines punch errors but 
the carriage returns associated with the original type- 
writer output still occur to provide a warning. The Data 
card initially required by FORTRAN II-D is still required 
but the word DATA starts in cc 7 the same as for SSG0. and 
7094 FORTRAN. 
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MAKE UP SUBSET RUN DECK 




Error Reports - Translation Phase 

As source statements are compiled, checks are made for source 
program errors. If an error is detected, a message of the following form 
is punched: 

SSSS + CCCC ERROR n 

where SSSS is the last statement number encountered by the program prior 
to the error, CCCC is the number of statements following the last numbered 
statement, SSSS + CCCC is the statement containing the error, and n is the 
error code number. If an error is encountered before a statement number 
is encountered, SSSS will be 0000. Comment cards, blank cards, and contin- 
uation cards are not included in the statement count. Only one error per 
statement is detected. The following is a table of error code numbers and 
their meaning: 



Error No. 



Condition 



4 
5 
6 
7 
8 
9 

10 
11 

13 



Undeterminable, misspelled, or incorrectly formed statement. 

Syntax error in a nonarithmetic statement 
(exception: DO statements). 

Dimensioned variable used improperly, i. e. , without subscript- 
ing, or subscripting, appears on a variable not previously 
dimensioned. 

Symbol table full (processing may not be continued). 
Incorrect subscript. 

Same statement number assigned to more than one statement. 

Control transferred to FORMAT statement. 

Variable name greater than 6 alphameric characters. 

Variable name used both as a nondimensioned variable name 
and as a Subroutine or Function name. 

Invalid variable within an EQUIVALENCE statement. 

Subroutine or Function name or dummy variable used in an 
EQUIVALENCE statement (subprogram only). 

Within an Equivalence list, placement of two variables previ- 
ously in Common, or one variable previously equivalenced and 
another either equivalenced or placed in Common. 
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MAKE-UP OF 7094 FORTRAN RUN DECK 



DATA CARDS 




* DATA 



SOURCE PROGRAM 



PROBLEM 1 



*Ml2l7-9CXX>, PMS^D&eus,! ,1,500,50 



LISTS (OPTIONAL) 




Fig. 9 
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b) Execute Card (Control Card) 

* XEQ 

This must be the second card in your deck. It informs the processor 
that your program is to be executed immediately after it is compiled. 

c) List Card (Control Card) 

* LIST 8 

This should be the third card in your deck. It informs the processor 
that a listing of the equivalent machine language object program resulting 
from the compilation is to be included in your printed output. This listing 
is helpful in off-line debugging. 

d) Source Program Deck 

Source statements according to specifications. Last card must be 
END statement. 

e) Data Card (Control Card) 

* DATA 

f) Data Deck 

Data cards for testing your program at execution, prepared in ac- 
cordance with Format statement specifications. 

A typical run deck is shown in the diagram which follows. The above 
control cards are the only ones which may be included. 

Submission of 7094 Runs 

Student decks, assembled as described above, should be delivered to 
Room 1-151 before 4:30 PM and deposited in the IN box for the appropriate 
subject (such as 1. 15). The runs will be batched and delivered to the Com- 
putation Center for processing overnight. Results are returned the following 

403 35- 
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MONITOR 1 

MONITOR 1 calls in the Monitor System provided by 
IBM with the 1311 disks. This card merely transfers 
control from the supervisor to the Monitor System. 
Modifications mentioned in connection with SUBSET still 
hold. The monitor program was, however, modified so 
that when an end of job card is encountered, control is 
returned to the supervisor. 

LOAD 

LOAD is not really a system but simply a means to 
simulate the load button on the 1622* It provides the 
capability for stacking machine language programs along 
with any of the other system jobs. The user must 
provide his own loader and must terminate his program with 
a specified branch to return control to the supervisor. 
The add and multiply tables are brought into core with 
the supervisor and remain there when LOAD is called. f 

COGO 

The COGO associated with this call is a version of 
COGO prepared specially for a 60K machine with a special 
application in mind. It was designed to provide maximum 
efficiency with this hardware configuration. The system 
is stored on 600 sectors of disk and is transferred to 
core when called as a unit so that all commands are always 
in core and available. A new command FINISH was provided 
so that COGO jobs could be stacked with any of the other 
systems jobs. 

C I/COGO 

Cl/COGO is a disk version of COGO designed for a 
20K machine. It operates much like the card plug deck, 
system except that the plug is read from disk rather than 
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from cards. It like the plug deck system is limited, at 
the present time, to typewriter output and is used primarily 
for demonstration only. 

PLOT 

PLOT like COGO is a problem-oriented language and at 
this time is used to graphically display the results of 
COGO. This is the very first attempt at the adaptation of 
graphical displays to problem-oriented languages. At 
present it contains only a minimum command set but program- 
ming is under way to greatly expand the system for a wide 
variety of applications. 



All the systems above mentioned are stored on a single 
disk pack and are file protected. The Equivalence Table, 
the Dim Table and the Sequential Program Table all contain' 
appropriate entries and are cognizant of the existence of 
the various systems thus providing additional protection. 
All the systems in use have been modified so that as each 
job is terminated control is returned to the supervisor. 
Thus the supervisor provides a simplified procedure of 
operation with adequate flexibility and compatibility for 
an efficient system requiring a minimum of machine time 
for a maximum number of users. 
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TYPICAL ARRANGEMENT OF 1620 RUN DECKS 
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1. 2 AVAILABLE SYSTEMS 



At the present time, the following systems can be called from disc by the 
CESL MONITOR via System ID cards as follows: 

* EDIT 

A program for editing FORTRAN source programs for 
common programming mistakes. 

* SSGO 

~ A simplified load-and-go FORTRAN System especially 
designed for instructional use. 

* SSGO/ EDIT 

A combination of the first two which will check the program 
with EDIT and process it with SSGO if no mistakes are 
detected. 



* SUBSET 



A subset of FORTRAN II for the 1620 and 7094 designed for 
debugging 7094 programs on the 1620. 

* MONITOR I 

Turns control of the machine over to the IBM 1620 Monitor I 
System. This system in turn can call SPS Symbolic Program- 
ming System, FORTRAN II-D, Disc Utility Program, etc., 
through additional control cards. Use limited to authorized 
users. 

* LOAD 

For loading 1620 machine language programs included in 
stacked input. 

* COGO 

A problem-oriented language and processor for geometric 
problems. 

* PLOT 

A problem-oriented language for preparing plots and graphical 
displays with the on-line plotter. 

Additional systems are under development and will be added from time to 
time. 
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USE OF COMPUTERS IN DESIGN OF ELECTRONIC EQUIPMENT 



(Presented at the Eastern Regional 1620 Users Group meeting in 
Washington D.C., on May 7, 1964.) 

by: Arnold Spitalny 

Chief, Computer Branch 

Norden Division 

United Aircraft Corporation 

Norwalk, Connecticut } 

The theme of this meeting is "Consolidation Thru Systems In- ; 
tegration." The word "Systems" means many things to many people. 
We are concerned now with a type of system considerably more complex 
than most of those you are accustomed to dealing with. This is a 
man-machine system for design and development of electronic equip- 
ment. At Norden, we are concerned primarily with military electronic, 
electro-optical and electro-mechanical equipment, such as radar, 
displays, navigation systems and vehicle control systems. However', 
the same methods and techniques are applicable in many other areas 1 . 

The first problem in system design is ;• always to define the 
problem. What are the problems in the military electronics business? 
Some of the basic trends are indicated in Figure 1. 

The rapid advance in electronic technology over the past few, 
years has resulted in a very rapid rate of obsolescence for all 
electronic equipment. The demand for increased capabilities and 
specialized customer requirements also results in a steadily increas- 
ing complexity of equipment. Competition both in cost and tech- 1 
nology is applying greater pressure all the . time. Reliability re- 
quirements of the Military are getting steadily more severe and those 
of NASA are practically out of this world. The combination of in- 
creasing complexity and stricter reliability requirements results 
in a demand for a wide variety of automatic check-out equipment, 
manufactured in much smaller volume than the . equipment they check 
out. Most development programs are subjected to frequent changes 
due both to changes in customer requirements and to engineers thinking 
of better ways to do things they have already designed. 

Once the changes stop and production begins, there is usually 
only a very short production run before rapid obsolescence takes over 
and the entire cycle repeats. The end result is a steady increase 
in the average amount of engineering work required to support a 
given level of production. This is substantiated by the steady 
industry-wide increase in the ratio of engineering personnel to 
manufacturing personnel. The basic problem then, is how to get 
more engineering work done faster and better. 

Figure 2 indicates the two basic approaches to this problem. 
The obvious way is to hire more engineers. We do not consider that 
an adequate solution over the long run. It is much better to: see 
if we can find a way to use the engineers we have more efficiently 
by using computers to assist engineers. Computers have been used 
many times to assist engineers in a wide variety of individual tasks. 
We are expanding these tasks and developing new ones to provide an 
over-all man machine system in which engineers use computers effect- 
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ively for all tasks computers can do better than man. Under these 
conditions, engineers have the opportunity to concentrate their eff- 
orts on those intellectual functions man can do far better than com- 
puters . ^ 

Figure ^ indicates some of the basic steps in developing such 
a system. The first problem is to identify and select the design 
tasks for which we should consider the possibility of using computers 
to assist the engineers. For each of these tasks we must determine 
a set of design rules, which would be in sufficient detail to con- 
sider programming on a computer. Preliminary planning of methods and 
procedures for each task must proceed far enough to provide a real- 
istic basis for estimates of the cost of fully implementing the task , 
and of the benefits that would result from it. Evaluation of these 
costs and benefits indicates that there are some tasks on which a 
substantial early payoff can be achieved from a reasonable degree of 
effort. Work is started on these tasks as sopn as they are discovered. 
In this way the program is put on a pay-as-you-go basis while planning 
and development of the rest of the system continues. 

Now that you understand the philosophy behind this program, 
let's take a look at what has actually been done. Figure 4 is a 
simplified block diagram of the entire series of engineering act- 
ivities from initial planning of a new project to release of final 
documentation to other divisions of the company and to the customers. 
The engineering tasks that presently involve the greatest proportion 
of computer usage are marked A. Some of those for which we are 
presently developing computer applications are identified by a B, ^ 
and those labeled C require the highest proportion of human decisions. 
Even in this area, computer techniques have been extensively used 
to provide engineers with the information they need for their decisions. 
For example, the first step in developing a test console for fail- 
ure analysis of radar modules was to code the input-output require- 
ments of every module and analyze the requirements on the 1620 com- 
puter. This provided information needed by the engineers to specify 
signal generators and control and processing circuits. 

Computer simulation analysis has also been used extensively to 
check the theoretical performance of proposed systems prior to comm- 
itment of detailed designs. For example, in the case of an automatic 
radar terrain-following system for aircraft, the terrain character- 
istics, radar performance, processing of radar inf ormantion, airborne 
computer, action of the autopilot, and the response of the airplane 
were all simulated on the computer. Many flights were simulated 
by using the computer. Conditions in the equipment that might cause 
airplane crashes were eliminated before any equipment was actually 
designed. We are now working on development of simulation analysis 
techniques which could be applied to any electronic system at the 
block diagram level. This would be based on adaptation of the IBM 
general -purpose system simulator for the 7090 computer. 
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STEPS IN DESIGN AUTOMATION 




Once the simulation analysis has provided assurance that the 
planned system will do the job satisfactorily, it is time to specify 
the detailed equipment and proceed with the design. Whenever possible, 
standard modules and circuits which have been previously developed 
and built should be utilized., rather than develop completely new equip- 
ment. The computer files data from previous designs which can help 
to select such equipment. However, there will be many cases in which 
completely new designs are necessary to meet the new requirements. 

The critical bottleneck in electronic system development is 
usually design, development, and test of new electronic circuits. The 
traditional method requires building a laboratory breadboard of tne 
circuit and conducting extensive tests and modifications in the labor- 
atory to determine how the circuit would perform under varying conditions. 
This is a very expensive and time-consuming procedure and never gives 
optimum design, since the tendancy is to stop at the first thing that 
appears to work. 

Norden and IBM have jointly developed a set of computer programs 
for analysis of electronic circuits which provides the basis for a 
real break-through in this critical problem area. With these programs 
it is possible to predict the performance of many alternative circuits 
and select the best one before starting to build anything in the labor- 
atory. In addition to predicting the voltage outputs which could be 
measured in the laboratory, the computer programs also provide sensit- 
ivity of all outputs to all circuit parameters, thereby providing 
much greater insight Into the design problem and into the accuracy 
requirements of the components. 

A key feature of the circuit analysis program is the use of a 
very simple user-oriented input language. This permits preparation 
of input data directly from schematic circuit diagrams or from equi- 
valent circuit diagrams. There Is no need to derive any equations or 
prepare any new computer program instructions when a completely new 
and different circuit is analyzed for the first time. Once the new 
circuit has been described to the computer for purposes of circuit 
analysis, many other things can be done with the same basic data. 

We have extended the basic circuit analysis to include a wide 
variety of reliability analysis techniques. Tools now available to 
the reliability engineers for evaluation of new proposed circuit 
designs include stress analysis, derating analysis, margin analysis, 
mean time-between-f allure calculation, and failure effect analysis. 
These can all be performed before the circuit is actually built and 
reliability improvement recommendations can be incorporated in the 
original system design. 
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At this point the basic design has been completed but a lot of 
detailed work is required before the system can be built. A schematic 
diagram of the final computer-checked design is needed to record the 
design and to provide information for engineers. We are working on 
development of techniques for computer printout of schematic diagrams. 
This will eliminate some routine drafting work. More important, it 
will provide absolute assurance that the circuit in the diagram corr- 
esponds exactly to the circuit analyzed. 

The next problem is mechanical design or layout of the circuit. 
The problems here vary depending on the type of manufacturing tech- 
nology to be used. In conventional transistor circuitry, this is 
usually the problem of laying out a printed circuit board. 

At Norden we are now concerned increasingly with developing 
integral circuits, such as that in Figure 5. The layout design problem 
of these circuits is far more complicated. It involves development of 
a set of masks for the various etching, diffusion, and deposition steps 
required for manufacture of a complex semi-conductor integral circuit 
within a single silicon chip. Norden is presently working on an 
Air Force contract, developing techniques for automatic design and 
manufacture of such circuits. This involves use of the same basic 
circuit input definition which was used for circuit analysis, extended 
to include geometric as well as electronic information. 

Norden has used computer techniques to assist in optical and 
mechanical design as well in electronic design. The 1620 optical design 
package has been particularly helpful in developing optical designs 
for new display techniques. However, we have had to develop some of 
our own optical design programs to eliminate excessive use of the type- 
writer and provide data in the coordinates and format most useful to 
the optical designer. 

The mechanical design work at Norden includes such things as 
design of servo gear trains and critical inertial gimbal platforms 
as well as structures and housings for electronic equipment. Computer 
techniques have been developed to assist in mechanical layout and 
design, and in vibration analysis. However, a lot more remains to be 
done in this area. Once the electronic modules and the structure for 
housing them have been designed, the next problem is to route all of 
the interconnection cabling. This is sometimes referred to as the 
problem of "Where do all the wires go?" In the Norden design system 
the basic interconnection wiring data is key punched and fed into the 
computer. The computer assigns terminal numbers, selects cables, 
determines wiring length, sorts data, and prints out final wiring lists, 
which are the shop instructions for wiring the equipment. 

The basic manufacturing definition of electronic equipment is 
in the form of a list of materials. Detailed lists of material must 
be prepared' for every assembly and sub-assembly in the system. These 
lists of materials contain considerable detailed reference information 
about each part, as well as its basic part number designation. 
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This detailed printed information is maintained on disk files in the 
1620 computer for all standard Norden parts. The engineer then has 
only to designate the part numbers and quantities which are key- 
punched for computer input. The computer extracts other reference 
data from the disk and prints out the detailed lists of materials. 
It also records and stores the list of material information on 
disk file for later use in generating a wide variety of other design 
data documents, such as the unique parts lists, lists pf electronic 
components, tube complement lists, non-standard parts lists, and 
many others. By generating all this detailed information from the 
same basic system definition, we have greater assurance than ever 
before that the information is correct and consistent, as well as 
having it available much earlier, in more complete form, and at lower 
costs. This design data is the basic output product of engineering 
which is used by accounting, purchasing, manufacturing, and our 
customers. 

Now that you have seen the over-all system, you may want to 
know what does all this really mean? How much difference does it make 
in a complicated program? 

Figure 6 indicates a complete equipment currently under dev- 
elopment at Norden, tjhe Module Analyzer Test Console (MATC) for 
ground support of airborne radar equipment. It is something like 
a fancy tube tester, except that instead of testing tubes it tests 
complete modules of radar equipment. Several hundred different 
modules can be accommodated, including all its own internal modules. 
The control card for the module under test selects the appropriate 
input signals which are applied to the module, and the appropriate 
processing circuits for examining the module output voltages, so 
that the source of failure or malfunction can be isolated to a 
particular component within the module. This equipment was de- 
veloped concurrently with the computer-aided design system. Portions 
of this system were used on it as they became available. 

The first step in design of this equipment was tabulation 
and computer analysis of the input and output signal requirements 
of all modules to be tested. This computer analysis assisted the 
engineers in determining the signal source specifications and the 
specifications for various .'signal processing circuits in the MATC 
equipment. The same module data cards later were used for automatic 
design of the control cards vjhich select the appropriate signal sources 
and processing circuits to be connected with each module when it is 
tested. The complexity of this equipment is indicated by the fact 
that there are approximately 35,000 parts, of which 4,500 are unique 
items including about 2,000 electrical components. Two separate 
units or test benches have been designed, each requiring about 
10,000 Interconnection wires. All of the interconnection wiring, 
lists of materials, and other design data for this program were 
prepared on the 1620 computer, as well as analysis of most of its 
circuits. 
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Design and development of a system of this complexity W 
by traditional methods would normally take at least two or three years. 
This equipment was designed and developed in 1-1/2 years with partial 
use of experimental computer-aided design techniques. A new system 
of comparable complexity could be designed starting now in less than 
one year, with no Increase in the average manning level. When all 
parts of the computer-aided design system are completed and data is 
flowing smoothly from one computer operation to another, this time 
will be considerably shortened. 

The over-all results of the program are summarized in Figure 7. 
The time required to get from an engineering idea to its incorporation 
in a finished product is substantially reduced. The time required to 
process changes to an existing design is cut to an extent that makes a 
substantial difference in whether or not it is practical to incorporate 
many last-minute changes. The total cost of an engineering effort is 
substantially reduced by shortening the engineering time cycle, without 
increasing the number of engineers. The resulting products delivered 
to our customers are greatly improved as a result of providing more 
thorough preliminary analysis and reliability checking of designs. 
Finally, the engineering records resulting from this design process 
are far more complete and accurate than they ever were before. 
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NETWORK ANALYSIS ON THE 1620 



(Presented at the Eastern Regional 1620 Users Group meeting 
In Washington D.C., on May 7, 1964.) 

by: Martin J. Goldberg 

Computer Applications Engineer 

Norden Division 

United Aircraft Corporation 

Helen Street 

Norwalk, Connecticut 



ABSTRACT 

5"~computer program for analyzing electronic circuits on a 40K 
1620 with l^ll disc has been developed under a cooperative agreement 
between the Norden Division of United Aircraft Corporation and IBM. 

The Program is divided into four sections: language interpreter, 
DC analysis, AC analysis, and transient analysis. The analysis sections 
are limited to linear circuits, although the transient analysis section 
can approximate some non-linearities. The language interpreter section 
interprets input data on the circuit to be analyzed. The data is writt- 
en in a user-oriented language so that the Program can be used by in- 
dividuals not familiar with programming, and also so that man-machine 
communication is more efficient. The primary input is an equivalent 
circuit schematic. Input data cards, prepared from the schematic, 
describe the circuit topology and parameter values. 

From the above data, each analysis section sets up the proper 
matrix equations describing the network and performs the desired 
analysis. 

The DC analysis section obtains the DC steady- state solution 
for all node voltages and currents. In addition, there are several 
optional routines such as worst-case analysis of node voltages, com- 
putation of standard deviations of node voltages, determination of 
sensitivities of node voltages to network parameters and the like. 

The AC analysis section obtains the frequency response of the 
network i.e., magnitude and phase of node voltages and of currents 
versus frequency. 

The transient analysis section obtains the time response of 
node voltages and currents. It is capable of accepting time vary- 
ing input sources and also has the capability of switching parameter 
values from one state to another. This allows for simulation of 
change of state of transistors, diodes, and other switching elements. 
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The Program has had a significant impact on circuit design 
procedures at Norden. Engineers are relieved of routine calculations 
and are left with more time to apply to creative tasks. A high 
degree of confidence that a circuit will meet specifications is 
obtained before manufacturing. This is especially important in 
the case of integrated circuits. More reliable circuits are obtained 
since statistical analyses which used to be too time-consuming to 
perform at all now are done on the computer. In addition, over- 
design is reduced since the designer can readily see the effect of 
reduced tolerances on performance. 

Norden has already extended the capability of the Program 
beyond that of the version to be released by IBM, and is working 
on further extensions such as adding a non-linear capability. 
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1. INTRODUCTION : 

This report will discuss the main features of the Network 
Analysis Program developed jointly by the Norden Division of 
the United Aircraft Corporation, and I.B.M. Details of operating 
procedures and the mathematical theory will not be dealt with at 
length. The objective here is to describe the usefulness and 
significance of the program. 

A specific sample circuit will be discussed from preparation 
of input data to obtaining the output from the computer. 

The Network Analysis Program is used as a tool by the designer 
of electronic circuits. It can also be used to review the design 
of existing circuits for reliablity or optimization. 

The Program is written in FORTRAN II for a 40K, 1620 with 
1^11 Disk Storage Drive, 1622 Card Read Punch, Automatic Divide 
and Indirect Addressing. The Program also requires the Monitor I 
System. 



2. Advantages of Network Analysis Program. 

Figure 1 lists some of the advantages of the Program over 
conventional design techniques of hand calculations, breadboarding 
and testing. Points 1 and 2 (figure l) are obvious advantages. 
Point 3 emphasizes that conventional techniques cannot give accurate 
statistical information on the effects of component variations on 
circuit performance. Because the designer does not have a high 
degree of confidence that the circuit will perform satisfactorily 
under all extremes of component variation and environment, he is 
forced to over-design. 

The Network Analysis Program can perform complicated statistical 
analyses on the circuit, analyses much too time consuming to perform 
by hand calculation. With this tool the designer can optimize the 
circuit since the program readily shows the effects of tolerances 
on performance. 

Alternative circuit configurations (point 4) can easily be 
studied on the computer and the best configuration chosen. In fact, 
designs incorporating new or expensive components can be studied 
even if the actual components are not available for breadboarding. 

It is often possible to obtain insight into the operation of 
a circuit by use of the Program (point 5). Also, the effects of 
parameters, such as transistor current gain, can be determined. 
On a breadboard one cannot vary the gain of a transistor directly. 
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The factors mentioned contribute to reducing the need for bread- 
boarding (point 6), and even when breadboarding is still required the 
amount of testing is reduced. 



3, Brief Description of Analysis Procedure 

Before discussing the details of the Program, it is appropriate 
to obtain an overall picture of the procedure and flow of information 
involved in analyzing a circuit by use of x the Program. Figure 2 is a 
flow-chart describing the procedure. \ 

From the specifications and requirements on the circuit, the de- 
signer develops a circuit schematic describing the configuration he 
plans to use. An equivalent circuit schematic is then prepared from 
the original circuit schematic. The equivalent circuit schematic 
contains equivalent circuit representations for transistors and diodes. 
The equivalent circuit of a transistor or diode can be thought of as 
the model used by the Program to simulate them. The Program will accept 
any equivalent circuit chosen by the designer. 

The input data cards are prepared by referring to the equivalent 
circuit schematic, using a user-oriented language to describe the 
circuit. 

The Network Analysis Program is divided into four main sections: 
language interpreter,. DC analysis, AC analysis, and transient analysis. 
The language interpreter translates the input data cards, setting up 
lists of information for the analysis sections. It then calls on the 
proper analysis Bection as specified by the user, and the results of 
the analysis are computed. 

The user-oriented language used to prepare the input Data cards 
is probably one of the most Important features of the program. It 
allows the Program to be used by engineers not familiar with the machine 
or with programming. Also, it allows easy and fast communication be- 
tween the circuit designer and the computer. Very little of the full 
potential of the Program would be realized without the capabilities 
provided by the user-oriented language. 

4. Basic Network Branch Deflnation 

The basic entity in the matrix approach used to set up and solve 
the matrix equations of the network is the network branch. Figure 3 
shows the basic branch with a definition of the important variables. 
As shown, the branch is composed of three network elements: a passive 
element (resistor, capacitor or inductor); voltage source; and current 
source. The termination points of the branch are defined as nodes. We 
may then imagine a network as composed of many branches. 
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Then the variables defined in figure 3 way be thought of a8 vectors 
or column matrices with elements corresponding to each branch of the 
network. The primary output of each of the analysis sections is the 
node voltage vector, e 1 , and the branch current vector, i. 

The arrows on the diagram (figure J>) define the positive con- 
vention for current flow and the positive convention for the voltage 
source with polarity as shown. This convention should be kept in 
mind until later when preparation of input data cards for a specific 
example is described* 

Also, shown in figure J> is a typical branch data card prepared 
in the user-oriented language. It contains all necessary information 
on a branch. The Bl Indicates the data is for branch number 1. The 
N - (0,1) indicates that the branch is connected to nodes and 1 
and that the assumed direction of current is from node to node 1. 
Then the values for the three branch elements are given. 

5. Nodal Equations of Network* 

Figure 4 shows the nodal equations which are set up automatically 
by the program. These same equations would be set up by using the 
conventional manual technique of summing the currents at each node 
using Kirchhoff's current law. ^ x 

The only item which has not been defined is matrix A. It is 
sufficient for our purposes to say that it defines the topology of 
the network, that is, which nodes each branch is connected to and 
the assumed current direction for the branch. It is developed from 
the nodal data supplied for each branch. 

The e' vector of the node voltages is solved for. This is done 
by inverting the triple product (A^ YA) and multiplying it times the 
right hand side of the equations, where the superscript t indicates 
the transpose of A. This gives a nominal solution for the node volt- 
ages. New solutions corresponding to a change in value of one or 
more parameters are obtained by a very fast update technique. This 
is a method of modifying the inverse of (A YA) rather than starting 
the solution over from the beginning. An example of the use of this 
technique will be shown later. 

6. Preparation of Input For Sa mple Problem . 

A specific example will help to clarify the preceding discussion 
and should show the relative ease with which a problem can be set up 
for analysis by use of the user-oriented language. 



* Technical Report TR 00. 855, March 30, 1962. Machine Analysis of 
Networks and Its Applications. Franklin H. Branin, Jr. IBM Data 
Systems Division Poughkeepsie, New York. 



42 y 



-10- 



Figure 5 is the schematic of a one transistor amplifier. From the 
circuit schematic the equivalent circuit schematic (figure 6) is prepared, (* ^ 
The equivalent circuit of the transistor is enclosed within the dotted ^ 
lines. Numbers enclosed in squares are branch numbers and the circled 
labels are node designations, The arrows indicate assumed current dir- 
ections. The term 0(4,2) indicates that there is a transconductance 
from branch 4 to branch 2. The transconductance is used to model the 
gain of the transistor and is related to the current gain. 

The language interpreter has a dual function of interpreting spec- 
ific data on the circuit and also interpreting certain control funtions 
such as which analysis is to be performed, which optional outputs are to 
be obtained and which input-output devices are to be used. Thus there 
are two types of input: control statements and data statements. 

The input cards required to perform a DC analysis of the sample 
circuit are shown in figure 6. The first card, DCNODE, is an example 
of a control statement and indicates that a DC analysis is to be per- 
formed. The next card is an example of a data statement. The Bl indicates 
that the data is for branch number one of the circuit. The N = (0,1) 
is nodal data indicating that the branch is connected between nodes 
and 1 and since node is mentioned first, the assumed direction of 
current flow is from node to node 1. The R ~ 1. (.01) indicates 
that the nominal value of resistance is 1 ohm and that the tolerance 
is 1 percent. The tolerance is specified as a decimal percent tol- 
erance enclosed in parenthesis. The E = -^0. indicates that there is 
a 30 volt voltage source in the branch and it is negative according ,/r> 
to the basic branch definition of section 4. Data on the other branches ^ 
1b prepared in a similar manner. Note that the resistance of branch 
2 is expressed as R =5. E+ 06 which is equivalent to 5. x 10° ohms. 

Skipping to the card labeled Tl we have another type of data 
statement for presentation of data on transistor number one. The 
B = (4,5) means that the transconductance is from branch 4 to branch 
5. Next, the value of the transconductance is given. It has a nom- 
inal value of .0364. The tolerances are specified in an optional form 
in which the minimum is .O36I and the maximum is .0567. 

Figure 7 shows additional control statements and is a continuation 
of figure 6. The SENSITIVITY statement indicates that an optional output 
consisting of the sensitivities of each node in the circuit with respect 
to each parameter is to be computed. These outputs are discussed further 
in section 7. The POWER control statement asks for the power dissipation 
in each branch to be computed. The STATISTICAL ANALYSIS statement calls 
on a worst-case analysis and computation of the standard deviation of 
each node voltage. The MODIFY control statement and the statement immed- 
iately following it indicate that the resistance in branch 7 is to be 
modified from 25K to 40K in 5 equal steps. 
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It Is Implied that the node voltages at each step are to be computed. 
These new solutions are obtained at great speed by making use of 
the update technique discussed in Section 5. The EXECUTE statement 
causes all previous control statements to be executed in the order 
in which they appeared. The END statement returns control to the 
monitor system in the 1620. 

Prom the above discussion it should be evident that preparation 
of inout is relatively simple using the user-oriented language. In 
fact the rules for preparing the input cards from the equivalent 
circuit schematic can easily be taught to an aid or keypunch operator. 

7. Discussion Of Output Of Sample Problem . 

Figure 8 shows the output of the node voltages and the sensitiv- 
ities for the sample problem. There are four nodes in the problem, 
not counting the ground or datum node. The values of each node 
voltage are outputed from left to right. 

The sensitivities are the percent change in each node voltage 
with respect to a positive one percent change in each parameter of 
the network. The first set of sensitivities are with respect to 
the resistance in branch 1. They read from left to right for nodes 1 
through 4 respectively. The sensitivities with respect to the other 
parameters such as transconductances, voltage and current sources are 
outputed in a similar form . The sensitivities are used to detect 
critical parameters in the network. For example, scanning the first 
column of sensitivities one can see that node 1 is most sensitive 
to the voltage source, El. The sensitivities are also used in the- 
worst-case and standard deviation computation. 

The method used in obtaining the partial derivatives, from which 
the sensitivities are computed, is a relatively efficient method. 
They are obtained from explicit matrix formulas obtained by taking 
the partial derivatives of the nodal equations described in Section 
5. This is a much faster technique than some others which require 
obtaining new solutions for the node voltages with the parameters 
increased by small amounts. 

Figure 9 Bhows the results of a stress analysis which was called 
for by the POWER control statement. Here the current, voltage and 
dissipated power for each branch are outputed. Also, shown are the 
results of the worst-case and standard deviation (l-sigma) computations 
for each node voltage. Thus, the nominal, worst-case maximum and 
minimum and standard deviation for each node voltage is listed. These 
are based on the tolerances of the parameters and the computed sensit- 
ivities. From this output is is evident that the designer can readily 
see the effects of component tolerances on the circuit and can optimize 
the circuit by selecting the proper tolerances. 
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M0« BLANCHES * 7 
NO. NODES = 4 



NOMINAL NODE TO DATUM VOLTAGES 

2.999E+01 2.062E+01 5.493E-00 4.764E-00 
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STRESS ANALYSIS 



BRANCH 


CURRENT 


VOLTAGE 


POWER 
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NODE VOLTAGES FOR MODIFIED INPUT DATA 



R 7 = 3.50OE+ 
NODE VOLTAGES 
2.999E+01 



1«968E+01 5.985E-00 5.234E-00 



R 7 = 3.600E+04 
NODE VOLTAGES 

2.999E+01 1 .993E+01 

R 7 = 3.700E+04 
NODE VOLTAGES 

2.999E+01 2.017E+01 



5.853E-00 5.105E-00 



5.728E-00 4.982E-00 



R 7 - 3.800E+04 
NODE VOLTAGES 

2»999E+01 2.040E+01 

R 7 = 3#900E+G4 
NODE VOLTAGES 

2.999E+01 2.062E+01 



5.-60-8E-00 4.864E-00 



5.493E-00 4.752E-00 



R 7 = 4. E+04 
NODE VOLTAGES 

2.999E+01 2«083E+01 



5.382E-00 4.644E-00 
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Figure 10 shows the output obtained as a result of the MODIFY 
control statement. Sets of node voltages for each value of R7 are 
obtained. The five solutions are obtained in about the time it takes 
to get one nominal solution, since the high speed update technique ^ 
is used to modify the original nominal solution. 

8 . Discussion of AC and Transient Analyses 

The AC and transient analyses will not be discussed in as 
much detail as the sample DC problem. The outputs obtained from these 
analyses are shown graphically in figure 11. In the AC analysis the 
primary output is the frequency response of a networks This consists 
of the magnitude and phase of each of the node voltages as a function 
of frequency. The input is prepared In; 3 similar manner to the DC 
analysis, except that additional input such as values of capacitors, 
inductors and mutual Inductances must be given. Also, the range of 
frequencies over which the output is to be obtained is specified in 
a manner similar to the method used in the sample problem for modifying 
a resistance. 

The primary output of the transient analysis is the time response 
of the node voltages of the network. The transient analysis is 
capable of handling time varying sources which may be inputs to a 
circuit. Thus, input waveforems such as square waves, sawtooths, sine 
waves, etc., can be handled. A certain amount of non-linear capab- 
ility exists in that switching of parameters from one value to another 
is possible. Therefore, change of state of transistors and diodes 
can be simulated. The switching is accomplished automatically and 
the times at which switching occurs can be made dependedt on computed ^ > 
quantities such as a certain node voltage. For example, switching ^ 
of certain parameter values from one value to another can be made 
to occur when a specified node reaches, say, 10 volts. 

9. Program Extentions 

Norden has extended the Network Analysis Program beyond the vv 
version to be released by IBM. Some of these extensions are shown 
in figure 12. 

The Failure Effect Analysis searches for failures of components 
which may be over-stressed when certain other components fail. For 
example, each resistor in a network is alternately shorted and opened 
and the corresponding stress levels in the other components are checked 
to see that they do not exceed recommended values beyond which a 
failure may occur. 

The Derating Analysis compares the stress levels computed in 
the Stress Analysis (described in the sample problem) with recommended 
rated values which are stored for each standard part on the 1211 disk 
file-. Percent operating to recommended and percent operating to 
rated stress are then computed. Also, the failure irate of each 
component and for the entire circuit is computed. 
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The Degradation Analysis accounts for the effects of aging or 
some other criterion on a circuit. For example, the nominal tolerances 
on the parameters are adjusted to account for degradation with aging 
and the worst-case and standard deviations are computed with the 
adjusted tolerances. 

One of the disadvantages of the program as it presently exists 
is the necessity of preparing an equivalent circuit schematic includ- 
ing the equivalent circuit models of the transistors and diodes. 
Norden is extending the Program to include storage of the equivalent 
circuit so that the user need only specify the type transistor or 
diode he is using. The necessary data would then be pulled autom- 
atically from storage. This will greatly facilitate the setting up 
of a problem for the computer. 

One of the most important limitations of the Program is the 
lack of non-linear capability. This problem makes itself evident 
in cases where it is necessary to account for the non-linear char- 
acteristics of transistors and diodes. At present, the user must 
select an operating point for a transistor from which the parameter 
values for the equivalent circuit model are selected. If after 
analysis, the operating point does not .turn out to be the same as 
that which was expected, the model will not be accurate. This 
problem also occurs in the transient case when transistors change 
state and it may be necessary to account for the non-linear trans- 
ition, say, from the off state through the active to the saturated 
state. Norden is working on extending the program to account for 
the above non-linearities. 
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AN EXPERIMENTAL PERSONALIZED 



ARRAY TRANSLATOR SYSTEM 



by 



H. Hellerman 
Watson Research Center 
IBM Corporation 



AN EXPERIMENTAL PERSONALIZED ARRAY TRANSLATOR SYSTEM 



ABSTRACT: A system designed for intimate man-machine interaction 
in a general purpose problem- solving environment is experimentally 
operational. The system utilizes an array-oriented symbolic source 
language containing powerful statement types. These include Numeric, 
Boolean, Relational, and Selection operators on operands which can be 
entire arrays. The system also permits simple specification of test 
and argument arrays in single statements. 

The completely symbolic operating system includes display and entry 
of program and data. Sequence control is aided by an interrupt switch 
which allows the user to interact with the program during execution. 
In addition to normal stored program sequencing, the system provides 
trace options and the ability to enter any statement for immediate 
execution. 

Present implementation of the system is with an interpretive translator 
on an IBM 1620 computer. 
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DEBUGGING IN THE FOR II SYSTEM 



by 



R. D. Burgess 
Mechanical Technology, Inc. 



Debugging in the FOR II System 



This paper briefly describes the 1620 FOR II programming system. Machine 
language features pertinent to FOR II, difference between FORTRAN with FORMAT 
and FOR II, indexing in FOR II, subroutine linkage and construction of the 
object deck are covered. Stress is placed on debugging techniques such as use 
of the Symbol Table, Instruction Register No. 2, and general debugging aids. 
Knowledge of FORTRAN with FORMAT is assumed. 
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Baltimore, Maryland 



NUNBERG, Bennett 
Leesona Moos Labs. 
Lake Success Park 
Great Neck, New York 



MER I WEATHER, P. Wayne 
NASA - MSFC 
Huntsville, Ala. 



OGILVIE, Norman 

Airbourne Instruments Lab. 

Melville, New York 



MILLER, Adelaide 
IBM 

1120 Conn. Avenue, N. W. 
Washington, D. C. 

MINKIN, Jean A. 
Institute for Cancer Research 
7701 Burholme Avenue 
Philadelphia, Pa. 

MOORHEAD, Patricia 
John Hancock Mutual Life Ins. 
200 Berkeley Street 
Boston, Mass. 

MONAHAN, Jeanette 
Rohn & Haas 
5000 Richmond St. 
Philadelphia, Pa. 

MOORE, E. T. 

A. and T. College 

Greensboro, N. C. 

MORRISSON, Thomas E. 
Speer Carbon Co. 
47th and Packard Road 
Niagara Falls, New York 

MUNROE, M. E. 

University of New Hampshire 
Durham, New Hampshire 

NEWMAN, Edward 
MIT 

77 Massachusetts Ave. 
Cambridge, Mass. 

NICHOLS, R. E. 

Virginia Electric & Power Co. 
7th and Franklin Sts. 
Richmond, Va. 

NORTHROP, David T. 
Fairchild Dumont Labs. 
750 Bloomfield Ave. 
Clifton, N. J. 



OLIVER, James R. 
Univ. of Southwestern La. 
Box 1333 USL Sta. 
Lafayette, La. 

O'Neill, Brother B. E.- 
Manhattan College 
Manhattan College Pkwy. 
New York, New York 

ORTH, Jr. , E. J. 

Southern Services, Inc. 
P. 0, Box 2641 
Birmingham, Ala. 

ORTH, Richard 
Worthington Corporation 
Harrison, New Jersey 

OWENS, John D. 
New York Univeristy 
University Heights 
New York 53, New York 

PACINO, Salvatore 
General Nuclear Eng. Corp. 
P. 0. Box 10 
Dunedin, Fla. 

PALMIERI, Anthony J. 
Grumman Aircraft Eng. Corp. 
South Oyster Bay Road 
Bethpage, Long Island, N. Y, 

PARSONS, Jr. G. G. 
Lublin, McGaughy & Assoc 
220 W. Freemason St. 
Norfolk, Va. 

PAQUIN, Nancy 

U. S. Public Health Service 
1901 Chapman Ave. 
Rockville, Md. 

PARKER, E. H. 
Baltimore Gas & Electric 
Gas and Electric Building 
Baltimore 3, Maryland 
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PATERNITI, Richard 
IBM 

112 E. Post Road 
White Plains, N. Y. 

PAYNE, Gregson 

F.T. Nicholls State College 

Box 121 

Tlribodaux, La. 

PEARCE, D. J. 
E. I. DuPont 
Chattanooga, Term. 

PETERS, Carl B. 

Union County Tech. Inst. 

423 Park Ave. 

Scotch Plains, N. J. 

PETERSON, Andrew I. 
Univ. of Bridgeport 
Park Ave. 
Bridgeport, Conn. 

PETERSON, H. C. 
Air Reduction, Inc. 
Murray Hill, N. J. 

PIXLEY, David C. 
Bausch & Lomb, Inc. 
St. Paul St. 
Rochester, N. Y. 

PLEINES, W. W. 
Baltimore Gas & Electric 
Gas and Electric Building 
Baltimore 3, Maryland 

POINTER , John P. 

Tenn. Polytechnic Inst. 

Box 37 

Cooke rvi 1 1 e , Tenn . 
POWELL, E. R. 

Pan American World Airways 
Patrick AFB, Fla. 

PRATT, Richard L 

Air Force Inst, of Tech. 

Wright Patterson AFB, Ohio 

RANE , Dr., D. S. 
Pennsylvania Military College 
14th and Chestnut Sts. 
Chester, Pa, 



RAVER, Richard E. 
W. R. Grace & Co. 
Clarksville, Maryland 

REMILEN, Charles H. 
Eastman Kodak 
Lake Ave. 

Rochester, New York 

ROSENBARKER, I. E. 
IBM 

P. B. #6 

Endicott, N. Y. 

RICHARDSON, F. W. 
Jones & Lam son Mach. Co. 
60 Clinton St. 
Springfield, Vt. 

RICKER , Guy W. 

Jersey City State College 

Boulevard 

Jersey City 5, New Jersey 

RIGGS, Heath K. 
Univ. of Vermont 
Burlington, Vermont 

RILEY, R. B. /r^. 
A.D. Margison & Assoc., Ltd. V>^ 
1155 Leslie St. 
Don Mills, Ont. Canada 

RODGERS , J. A. 
Baltimore Gas & Electric 
Gas and Electric Building 
Baltimore 3, Maryland 

RUSSELL, James H. 
Gilbert Associates, Inc. 
525 Lancaster Ave. 
Reading, Pa. 

RUVOLIS, Leo 
York Junior College 
Country Club Road 
York, Pa. 

SABINE, Theodore R. 
Operations Research, Inc. 
1400 Spring St. 
Silver Spring, Md. 

SALEK, Franklin 
Hamden Testing Services, Inc. 
87 Valley Road 
Montclair, New Jersey 
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SAMSON, Stephen L. 
US Atomic Energy Comm. 
376 Hudson St. 
New York, New York 

SAMSTAG, Jay 

U. S. Public Health Service 
1901 Chapman Ave. 
Rockville, Md. 

SANDIN, E. M. 
Baltimore Gas & Electric 
Gas and Electric Building 
Baltimore 3, Md. 

SAWYER, Dr. , John W. 
Wake Forest College 
Box 7401 

Winston Salem, N. C. 

SCALETTI, Henry M. 
United Shoe Mach. Corp. 
Balch St. 
Beverly, Mass. 

SCHIFFMAN, Leonard 
Berger Associates, Inc. 
P. 0. Box 1943 
Harrisburg, Pa. 

SCHLAGER, Dr. Gunther 
The Jackson Laboratory 
Bar Harbor, Maine 

SCHNECKER , Joe 
Bethlehem Steel Co. 
Bethlehem, Penna. 

SCHRODEL, C. S 
Sun Oil Co. 
1608 Walnut St. 
Philadelphia, Pa. 

SCOTT, Thomas J. 
Sun Oil Co. 
1608 Walnut St. 
Philadelphia 3, Pa. 

SEEWALD, Milton 
Texaco, Inc. 
P. 0. Box 509 
Beacon, N. Y. 

SHEEHAN, Daniel M. 
Virginia Polytechnic Inst. 
Blackburg, Va. 



SHIONO, Ryonosuke 
Univ. of Pittsburgh 
Pittsburgh 13, Pa. 

SHORE, Maynard N. 
E. R. Squibb & Sons 
Georges Road 
New Brunswick, N. J. 

SILVERMAN, Joan 
IBM 

555 Madison Ave. 
New York, New York 

SI NAN I AN, Ed , 
IBM 

425 Park Ave. 

New York, New York 

«> SMITH, Walter J. 
U. S. Naval Academy 
Annapolis, Md. 

SMITH, Welborn H. 
Airbourne Instruments Lab. 
Melville, New York 

S0UCY, Robert 

Transitron Electronic Corp. 
168 Albion St. 
Wakefield, Mass. 

SPARVER0, "Luke J. 
FMC Corporation 
Dunham Road 
Meadville, Pa. 

SPITALNY, Arnold 
United Aircraft Corp. 
Helen St. 
Norwalk, Conn. 

SPRINGER, Berl M. 
Southwestern Public Service 
3rd & Polk Street 
Amarillo, Texas 

STACKS , Wanda 
AT&T 

32 Ave, of Amer. 
New York, New York 

STAIANO, E. F. 
Buc knell Univ. 
Lewisburg, Pa. 
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STANSBURY, James C. 

Hal con International, Inc. 

2 Park Avenue 

New York, New York 

STEINHART, R. F. 
IBM 

425 Park Ave. 

New York, New York 



THOMPSON, E. E. 

Arkansas Power & Light 

6th and Pine 

Pine Bluff, Arkansas 

THOMPSON, William B. 
Photo & Repro. Div. 
General Aniline & Film Co. 
Binghamton, N. Y. 



STONE, Eleanor 
Brandeis University 
Waltham, Mass. 



TIERS, John 
Bethlehem Steel 
Bethlehem, Pa. 



STORRER, R. L. 
Norwich Pharmacal Co. 
Box 191 

Norwich 1, N. Y. 



TRANTUM, J. W. 
Gen. Am. Trans. Co. 
7501 N. Natchez Ave. 
Chicago, 111. 



SULLIVAN, Peter J. 
United Illumination Co. 
80 Temple Street 
New Haven „ Conn. 

SVIHLA, Edward B. 
Automatic Electric Labs. 
P. 0. Box 17 
Northlake, 111. 



TURNER, Don N. 
Nat's Aero & Space Adm. 
600 Independence Ave. 
Washington, D» C. ' 

V0YT0VICK, Sharon M. 
Syracuse University Res.- Corp 
P. 0. Box 26 
Syracuse, New York 



TAYLOR, Carlis 

National Naval Med. Center 

Bethesda, Maryland 

TAYLOR, CDR. , Dean 
U. S. Naval Academy 
Annapolis, Maryland 

TAYLOR, James S. 
Data Corporation 
7500 Old Xenia Pike 
Dayton, Ohio 



WAGNER, Thomas F. 
IBM 

425 Park Ave. 

New York, New York 

WANG, France sea 
Stevens Inst, of Tech. 
Hoboken, N. J. 

WEAVER, John 
University of Dela, 
Newark,, Dela. 



TEEPLES, Thomas C. 
George Washington Univ. 
300 N. Washington St. 
Alexandria, Va. 

THOMAS, Edward 
Engineering Physics Co. . 
5515 Randolph Road 
Rockville, Md. 

THOMAS, Roy W. 
Southwestern Public Service 
Box 1261 
Amarillo, Texas 



WEINER, My ma S. 
Brandeis University 
Waltham, Mass. 

WEISS, Charles 

USAF Aeronautical Chart 

St. Louis, Mo. 

WELLS, Frank- J. 
Long Island Lgt. Co. 
175 Old Country Road 
Hicksville, New York 

WHELLER, R, C. 

Airborne Instruments Lab, 
Melville, New York 
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WHITACRE, C. G. 
Operations Research Group 
Edgewood Arsenal, Md. 

WHITE, Robert R. 

L.A. Dept. Water & Power 

207 S. Broadway 

Los Angeles, Calif. 

WILLIAMS, Charles S. 
Washington & Lee Univ. 
Lexington, Va. 

WILLIAMS, D. D. 
Baltimore Gas and Electric 
Gas and Electric Building 
Baltimore 3, Md. 

WILSON, George 
Black & Veatch 
1500 Meadowlake Pkwy. 
Kansas City, Mo. 

WINGERSKY , Boty G. 
University of N. H. 
Durham, New Hampshire 

WINGERSKY, Marilyn S. 
University of N. H. 
Durham, New Hampshire 

WINGERT, Joseph T. 
Trenton Junior College 
101 W. State St. 
Trenton, N. J. 

WOLFF, Jack M. 
Brooklyn College 
Brooklyn 10, New York 

WOODRUFF, George H. 
N. J. State Highway Dept. 
1035 Parkway Ave. 
Trenton, N. J. 

WRIGHT, Donald L. 
George Washington Univ. 
37th and Streets, N. W. 
Washington, D. C. 

WRIGHT, Lawrence 
Sprague Electric 
Marshall St. 
North Adams, Mass. 



WYNN, W. Phil 
George Washington Univ. 
300 N. Washington St. 
Alexandria, Va. 

YACKULICS, Charles W. 
The Armstrong Rubber Co. 
475 Elm Street 
W. Haven, Conn. 

ZIMMERMAN, Leo F. 
E<I. DuPont de Nemours & Co. 
Savannah River Lab. 
Aiken, S. C. 

ADDITIONS 

.DAVIS t Richard B. ' 

Orange and Rockland Utilities 

125 High Street 

Boston, Mass. 

KRENZER, Theodore J. 
Gleason Works 
1000 University Ave. 
Rochester, N. Y. 

QUIGLEY, James J. 

Orange & Rockland Utilities 

10 North Broadway 

Nyack, New York 

STUDENTS 

CARLSON, Dennis 
Wesley College 
Dover, Dela. 

BEALLY, J. Rodger 
Wesley College 
Dover, Dela. 

CLEMENT, Ronald 
Wesley College 
Dover, Dela. 

LIBERMAN, Nick 
Wesley College 
Dover, Dela. 

MORROW, Robert 
Wesley College 
Dover, Dela. 

WILSON, M. A. 
Wesley College 
Dover, Dela. 
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USL Computer Center 
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Agricultural Research Center 
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Union Bag-Camp Paper Corporation 
P.O. Box 570 
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Sun Oil Company 
1608 Walnut Street 
Philadelphia 3, Pennsylvania 
Phones KI 6-1600 

Mr. Arnold K. Canner, Chairman 
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1620 Users Group - Eastern Region 
Transitron Electronic Corporation 
168 Albion Street 
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Area 617 - Phones 2U5-U500 
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Boston, Massachusetts 

Phone: CO 7-1200 
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Chemical Engineering Team 
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The Badger Company 

363 Third Street 
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Process and Chemical Engineering Team 
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Sun Oil Company 
1608 Walnut Street 
Philadelphia, Pennsylvania 

Phone: KI 6-1600 
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Rate Engineering Team 
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Long Island Lighting Company 

250 Old Country Road 
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United Aircraft Corporation 
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Mr. C. Bailey, Chairman 
Plotting Team 
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IBM Corporation 
Endicott, New York 



Mr. Martin Goldberg, Alternate Chairman and 
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Electronics Team 

1620 Users Group - Eastern Region 
United Aircraft Corporation 
Norden Division 
Norwalk, Connecticut 06852 

Area 203 - Phone: 838-UU71 
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Plotting Team 
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Department of Civil Engineering - Room 1-179 
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May 28, 196U 



Report of Meeting of Programs Teams Chairmen 
1620 Users Group - Eastern Region 
Arlington, Virginia - May 7s 196U 



At a meeting of eight of the eleven Programs Teams Chairmen 
who ran sessions at this meeting of the 1620 Users Group - Eastern 
Region, the following items were discussed as indicated: 

1* It was suggested that the attendants at these sessions be asked to 
introduce themselves so that a spirit of comradery could .be fostered 
particularly among those who wanted to have themselves considered as 
"permanent" members of the Teams. The question of the continuity of 
the Teams » efforts between meetings was discussed in this context. 

2. It was requested that rosters of the attendants at these sessions be 
compiled with indications of those who wanted themselves to be con- 
sidered as "permanent" members of the Teams. 

3» It was requested that a meeting secretary be appointed for each Pro- 
grams Team to take notes on discussion topics and papers whose authors 
did not want them published in toto. It was pointed out that the 
authors of papers presented at these meetings are not requested to 
have them published in the Proceedings. 

2*. A survey was asked for from each Programs Team Chairman of the inter- 
ests which the "permanent" members of his Team have in the sessions 
of other Programs Teams. It was pointed out that this information 
would be useful to the Program Chairman of the meeting in scheduling 
the Programs Teams sessions. In this context, it was suggested that 
the Programs Teams, in general, could be organized as far as their 
interests are concerned along lines suggested by the program groupings 
in the latest quick index. 

f>. The structure of the meeting, namely programming and operating systems 
during the first day and a half followed by applications systems and 
programs during the remaining day and a half, was reviewed with the 
Programs Teams Chairmen with the suggestion that only those topics 
in programming and operating systems of exclusive interest to a parti- 
cular Programs Team be included in that Team's session agenda. 

6. The matter of continuity in Team activities and leadership between 
meetings was discussed. All of the Programs Teams Chairmen at this 
meeting agreed to continue their leadership at least until the next 
meeting of the Users Group. 

These items were subsequently reviewed with the three Programs 
Teams Chairmen not present at this meeting. 



D. D. Williams 4 6 1 

Program Chairman 

196U Spring Meeting 

1620 Users Group - Eastern Region 
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SURVEY OF TYPE 1620 PROGRAMMING SYSTEMS 



1620 Users Group - Eastern Region Meeting 

Washington, D.C # 
May 6, 7 and 8, 196U 



System 



Statement Languages 



Machine 
Requirements 



I EM Corporation 



1. 
2. 
3. 



5. 



FORTRAN with Format (Card) - FO-OOh, Ver II 20K 
FORTRAN with Format (Tape) - FO-OOl, Ver II 20K 
FORTRAN II (Card) - FO-019 UOK 

Indirect Addressing 
Automatic Divide 
GOTRAN (Card) - PR-011 20K 
GOTRAN (Tape) - PR-010 20K 



Symbolic Languages 



1. 
2. 

3. 
iw 
5. 
6. 

7. 



Symbolic Programming System (Card) 
SP-009 

Symbolic Programming System (Tape) 
SP-008 

1620/1710 SPS (Card) - SP-020 
1620/1710 SPS (Tape) - SP-021 
1710 SPS II (Card) - SP-007 
1710 SPS II (Tape) - SP-006 
SPS III (Card) - SP-027 



8. SPS III (Tape) - SP-028 



Statement and Symbolic Languages 

1. Monitor I (Card) - PR-025 

a. SPS II-D 

b. FORTRAN II-D 



2. Monitor I (Tape) - PR-026 

a. SPS II-D 

b. FORTRAN II-D 



20K 

20K 

20K 
20K 
20K 
20K 
20K 

Indirect Addressing 
20K 

Indirect Addressing 



20K 

1311 Disk Drive 
Indirect Addressing 
Automatic Divide 

20K 

1311 Disk Drive 
Indirect Addressing 
Automatic Divide 



Detail 
Page 



U 
5 

6 
6 
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System 



Statement Languages 

1. AFIT Improved FORTRAN 

(Card) - Ol.l.OlO 

2. Complex FORTRAN (Tape) - 

06.0.008 

3. FORTRAN 90 Compiler and 

Subroutines (Card) - 
02.0.01k 

U. FORTRAN 1/2 (Tape) - 
01.6.037 

£. FORTRAN I for Magnetic 
Tape System (Card) - 
02.0.018 



6. FORTRAN I for Magnetic 

Tape System with Auto- 
matic Floating Point 
(Card) - 02.0.025? 

7. FORGO (Load & Go FORTRAN) 

(Card) - 02.0.008 

8. FARGO (Card) - 02.0.027 



Author 



Machine 
Requirements 



Users 



9. F0R-T0-G0 (2 Pass FORGO) 
(Card) - 02.0.009 

10. Load & Go FORTRAN 

(Card) - 01.1.009 

11. Load & Go FORTRAN 

(Tape) - 01.1.008 

12. N07ATRAN I (Tape) - 

02.0.012 

13. UTO FORTRAN (Card) - 

02.0.021* 



Pratt 
Air Force Institute 
of Technology 

Maskiell 
McGr aw-Edi s on Company 

Borst 

Bausch & Lomb Optical 
Company 

Anderson 
Allen-Bradley Company 

Wenrick 
ACF Industries, Inc. 



Wenrick 
ACF Industries, Inc. 



McClure 
University of Wisconsin 

Heyworth 
University of Alberta 



McClure 
University of Wisconsin 

MaiUoux 
University of Alberta 

Mailloux 
University of Alberta 

Northrop 
Fairchild Camera & Instr. 

Lee 

University of Toronto 



20K 



20K 
20K 

Automatic Divide 
Indirect Addressing 
Move Flag 

20K 
20K 

Automatic Divide 
Indirect Addressing 
2 Tape Drives 
Move Flag 

60K 

Automatic Divide 
Indirect Addressing 
2 Tape Drives 
Move Flag 

UOK 

Indirect Addressing 
Automatic Divide 

60K 

Indirect Addressing 
Automatic Divide 
1 Magnetic Tape Drive 
Move flag 

UOK 

Indirect Addressing 
Automatic Divide 

UOK 

Indirect Addressing 
UOK 

20K 

20K 



r -\ 
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System 

111. UTO FORTRAN Processor 

and Subroutines (Tape) - 
02.0.017 

1$. Automatic Floating FORTRAN 
Processing System - 
01.6.076 

16. PDQ FORTRAN (Card) - 

2.0.031 

17. Multiprocessing FORTRAN 

(Tape) - 1.1.005 

18. 60K Load & Qo FORTRAN 

(Card) - 1.1.019 

19. MCE Load & Qo FORTRAN 

(Tape) - 2.0.032 



20. NCE Load & Go FORTRAN 
(Card) - 2.0.029 



Author 
Field 

University of Toronto 



Brittain 
Sunstrand Aviation 



Naskiell 
McGraw-Edlson Company 

Carr 

Indiana Tech. College 

Mailloux 
University of Alberta 

Rumrill & Fowler 
Newark College of 
Engineering 

Rumrill & Fowler 
Newark College of 
Engineering 



Machine 
Requirements 

20K 



Automatic Divide 
Indirect Addressing 
Automatic Floating Point 
Move Flag 

20K 

Automatic Divide 
20K 

60K 

Indirect Addressing 
20K 

Automatic Divide 
Indirect Addressing 
Model 1 

20K 

Automatic Divide 
Indirect Addressing 
Model 1 
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System 

Symbolic Languages 

1. Fast Assembler (Card) 
02.0.028 



2. OSAP Assembly Syetei 
(Card) - 01.1.012 



3. SPS I for Magnetic Tape 

System (Card) - 02.0*021 

lu SPS II for Magnetic Tape 
System (Card) - 01,6.077 

LAMP (Card) - 1.1.001 

6. Relocatable Assembly 

System (Card) * 1.1.020 

7. APIT SPS (Card) - 1.1.023 



8. FAST Assembler (Card) - 
2.0.028 



Author 



Heyworth 
University of Alberta 



Numerical Computation 

Laboratory 
Ohio State University 

Wenrick 
ACF Industries, Inc. 

Wenrick 
ACF Industries, Inc. 

Matthy8 
IBM Corporation 

Richardson 
Australian ASC 

Pratt 
Air Force Institute 
of Technology 

Mailloux & Davis 
University of Alberta 



Machine 
Requirements 



60K 

Automatic Divide 
Indirect Addressing 
2 Magnetic Tape Drives 
Move Flag 

20K 

Indirect Addressing 
60S 
60K 

3 Magnetic Tapes 
Automatic Floating Point 

20K 
60K 

Indirect Addressing 
UOK 

Indirect Addressing 
Automatic Divide 
Move Flag 

60K 

2 Magnetic Tapes 
Indirect Addressing 
Automatic Divide 
Move Flag 
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FORTRAN with Format (Card) 



Program 

1. Card FORTRAN Compressor - 

01.3.007 

2. Dynamic Trace - 01. U. Oil 



3. F0R00M Subroutine - 01.6 .0$1 



U. Format FORTRAN Object Deck 
Compressor - 01.2.009 

FORTRAN Format Checker - 
01.1.017 



6* Gamma Function Subroutine « 
Positive Arguments • 
07.0.0U8 

7. Plot Subroutine - 06.0.119 



8. Plot Subroutine - 01.6.0$6 



9. Random Number Subroutine 
07.0.021 

10. Subroutine for Plotting with 

a CAL-CGMP Plotter - 
01.6.068 

11. Link Subroutine - 13.0.002 



12. Plot Subroutine - 13 .0.001 



13. FORTRAN Compressor - Loader - 
1.2.007 

lb. FORTRAN Memory Dump - 1.3.00U 



1£>. FORTRAN Compressor and 7$ 
Column Dump - 1.3*008 



Author 

Brush 
IBM Corporation 

Lesson 
IBM Corporation 

Pope 

Utah State University 

Givner 
Brooklyn College 

Font 

Dept. of Public Works 
(Puerto Rico) 

Paehon 
Automatic Electric 
Labs, Inc. 

Vanschaik 
IBM Corporation 

Reynolds 
Sprague Electric Company 

Fink 
IBM Corporation 

Fasslno 
Todd Shipyard Corp. 



Poore 
Louisiana PI 

Poore 

University of Kentucky 

Sabath 
Eastman Kodak 

Gmland 
Dov Chemical Company 

Moore 
IBM Corporation 



Machine 
Requirements 

Indirect Addressing 



Indirect Addressing 
Mots Flag 

Indirect Addressing 



20K 

Indirect Addressing 
Automatic Divide 

No Automatic Divide 



Automatic Divide 
Special Instructions 

20K 



20K 

Indirect Addressing 



60K 

Indirect Addressing 
Indirect Addressing 
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Detail Page 1 
(Continued) 



Pro gra n 

16. FORTRAN Compressor and Haiti- 

Programmer - 1.6.01*5 

17. FORCOM - 1.6.051 



18. FORSTAD - 1.6.0& 



Author 

Gardner 
General Foods 

Pope 

Utah State University 

Anderson 
General Electric 



Machine 
Requirements 

20K 



Indirect Addressing 



19. Modified CDS FORCOM Sub- 
routine -1,6,096 



Webster 
Victoria Electricity 
Commission 



Indirect Addressing 



20. FORTRAN Fre-Compller - 

F0-006 

21, Plot Subroutine - MP-lltX 



IBM Corporation 



IBM Corporation 



Automatic Divide 
GAL-CCKP Plotter 
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FORTRAN with Format (Tape) 



Program 

1. Bessel Function Subroutine 
07.0.037 



2. CAL-OOMP 565 Plotter Sub- 

routine Pen - 13.0.005 

3. Dynamic Trace - 01. U. 012 



lu Random Number Subroutine 
07.0.022 

5. Random Number Subroutine 

07.0.009 

6. FORTRAN Lister - 1.1.007 



7. FORTRAN Pre-Compiler - 
FO-005 



Author 

Sundvall 
General Nuclear 
Sng. Corp. 

Michel 
Argonne National Lab, 

Lesson 
I EM Corporation 

Fink 
IBM Corporation 

Sanders 
Abbott Laboratories 

Pratt 
Air Force Institute 
of Technology 

IBM Corporation 



Machine 
Requirements 

20K 

Automatic Divide 



Indirect Addressing 



Indirect Addressing 
Move Flag 



5.U.7 

468 
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FORTRAN II (Card) 



Program 

1. Dunp Digit-X Unload Memory 

Program - Self Load, 
FORTRAN II and Format 
Subroutine - 01,6.092 

2. FORCOM Subroutine - 01.6.07U 



3. FORTRAN II Symbol Table 
Punch - 01,6.067 

U. FORTRAN II Diagnostician - 
01.6.019 

5. Format Statement Preselector 
01.6.086 



6. Relocatable Cos, Sin, and 

Exp. Subroutines - 
07.0.038 

7. Relocatable Plot Subroutine - 

13.0.00fc 



8. Random Exponential Number 

Generator Subprogram - 
06.0.111 

9. Random Normal Number 

Generator Subprogram - 
06.0.108 

10. Subroutine for Plotting with 

CAL-COMP Plotter - 01.6.065 

11. 1620 SORT-Library Function - 

01.6.069 

12. Symbol Table on Cards - 

01.3.011 



13* Automatic Floating Point 
Subroutines - Uf-02ti 



Author 
Orth 

Southern Services, Inc. 



Webster 
State Electricity 
Commission of Victoria 
(Australia) 

Mcllvain 
Catalytic Construction Co. 

Bur ge son 
I EM Corporation 

Morgan 
Washington State 
Highway Department 

White 

Mayo Clinic Computer 
Facility 

White 

Mayo Clinic Computer 
Facility 

Bray 

Boeing Scientific 
Research Labs. 

Bray 

Boeing Scientific 
Research Labs. 

Fassino 
Todd Shipyard, Inc. 

Anderson 
Sandia Corporation 

Christensen 
Sylvania Electric 
System - West 

IBM Corporation 



Machine 
Requirements 

60K 



60K 
Move Flag 

Indirect Addressing 



Automatic Floating Point 



V. 



More Flag 



Move Flag 



Floating Point Hardware 



TNF Instruction 



Automatic Floating Point 



5.U.8 



Detail Page 3 
(Continued) 



Program 

lb. Relocatable TNS and TNF 
Subroutines - 1,6.063 



IS. ALTER H 



Author 
White 

Mayo Clinic Computer 
Facility 

Levin 

Hazeltine Research Division 



Machine 
Requirements 

Move Flag 



S.h.9 4 ? 



Detail Page k 



Symbolic Programming System (Card) 



Program 

1, Additional Instructions 

Macro Subroutine - 01.1.002 



2. Input-Output Subroutines - 
01.6.028 



3. Multiple Precision Floating 
Point Arithmetic Sub- 
routine - 01.6.01*1 



U* Relocator Program - 01.2.005 



£. SPS Modifier for Magnetic 
Tape Operation - 01*6.039 

6* Multi-Purpose SPS Compressor 
1.1.006 



7. Float - 1.6.083 



Author 

Petersen 
Washington State 
Highway Department 

Pykstra 
General Foods Research 
Center 

Hoffman 
Boeing Company 



Glans 
Purdue University 



Holline 
Bell Telephone Labs, 

Bate 
Wolf Research 
and Development 

Qinsburg 
U.S. P.H.S. 



Machine 
Requirements 

Indirect Addressing 



20K 



60K 

Indirect Addressing 
Automatic Divide 
"Move Flag" Instruction 

20K 

Indirect Addressing 
"Move Flag" Instruction 



Indirect Addressing 
Automatic Divide 
Move Flag 



S.U.10 



471 



c 



J/ 
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Symbolic Programing System (Tape) 



Program 

1. Assembly Program for SPS 
Subroutines - 01*1. 003 



2. Floating Point Input/Output 
Subroutines - 01,6,023 



Author 

Pratt 
Air Force Institute 
of Technology 

Pratt 
Air Force Institute 
of Technology 



Machine 
Requirements 

20K 

20K 



S.U.ll 

472 



1620/1710 SPS (Card) 



Detail Page 6 



Program 

1* Floating Point Conversion 
Subroutines - 1,6.053 



2. Label Reference Indexer 
l.l.Olt* 



3. Label Reference Indexer 
Without Indirect 
Addressing - 1,1,013 

U. L10f> Floating to Fixed - 
1.6.0U8 

£. L106 Floating to Fixed - 
1.6,0U9 

6. Object Deck Analyzer - 

1.6.060 

7. Symbol Table Punch - 

1.3.010 



8, Storage and Label Analyzer 
1.6.093 



Author 

Pratt 
Air Force Institute 
of Technology 

Pratt 
Air Force Institute 
of Technology 

Pratt 
Air Force Institute 
of Technology 

Engelhardt 
IBM Corporation 

Engelhardt 
IBM Corporation 

Bezreh 
John Hancock 

Bradshaw 
Christian Brothers 
College 

Bowman 
im Corporation 



Machine 
Requirements 



Indirect Addressing 



Indirect Addressing 



Indirect Addressing 



Indirect Addressing 



Indirect Addressing 



Indirect Addressing 



1620/1710 SPS (Tape) 



1. Label Reference Indexer - 
1.1.022 



Pratt 
Air Force Institute 
of Technology 



$Jul2 



